Решение задачи №8 из главы 16.Пользователь вводит произвольную строку, перестройте её в "ёлочку"

Задача №8:

Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:rewt34t54346t566 то в ответ программа должны вывести:
r
ew
t34
t543
46t56
6

program pascal_string_piramid;
var i , l , k : integer;
    inputstr : string;
begin
l := 0 ; // сколько было выведено после переноса
k := 1; // сколько будет выведено в однoй строке
writeln( 'input string : ' ) ;
readln( inputstr ) ;
for i := 1 to length( inputstr ) do // обходим строку
begin
  write( inputstr[i] ); //выводим символ
  l+=1; // имеем ввиду что вывели один символ
  if ( l >= k ) then  // пора переносить на новую строку
  begin
    writeln( ); // переносим
    l := 0 ; // обнуляем в новом витке
    k+=1; // увеличиваем длину елочки в новой строке
  end;
 
end;
readln();
end.