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

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

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

rewt34t54346t566

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

r
ew
t34
t543
46t56
6

var i, N, k, L:integer;
    s: string;
begin
  k := 0; // счетчик символов в строке
  L := 1; // длина строки мах
  writeln('vvedi stoky');
  readln(s);

  for i:=1 to length(s) do
    begin
       write(s[i],' ');
      if(k = (L-1)) then
        begin
          writeln();
          L := L + 1;
          k := 0;
        end
      else
        k := k + 1;
    end;
  readln();
end.