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

Задача 7 урок 16

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

rewt34t54346t566

то в ответ программа должны вывести:

r
ew
t34
t543
46t56
6

program U16Z7;
var s: string;
    i,j,k: integer;
begin
  writeln('vvedite stroku s');
  readln(s);
  j:=1;
  k:=0;
  for i:=1 to length(s) do
  begin
    if (k=j) then
    begin
      k:=0;
      j:=j+1;
      writeln();
    end;
    write(s[i]:2);
    k:=k+1;
  end;
  readln();
end.