Задача 7 Урок 17

Задача 7 Урок 17:

Пользователь вводит произвольную строку, перестройте её в "ёлочку".

program u17z7;
var
  s: string;
  i,n,m: integer;
begin
  n:= 0;
  m:= 1;
  writeln('Vvedite stroky:');
  readln(s);
  for i:=1 to length(s) do
  begin
    n:=n+1;
    write(s[i]);
    if (n=m) then
    begin
      writeln ();
      m:=m+1;
      n:=0;
    end;
  end;
  readln();
end.