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

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

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

rewt34t54346t566

то в ответ программа должны вывести:
?
1
2
3
4
5
6

r
ew
t34
t543
46t56
6

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