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

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

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

var
  s: string;
  i, j, m: integer;
begin
  j:= 0;
  m:= 1;
  writeln('Введите произвольную строку:');
  readln(s);
  for i:=1 to length(s) do // обходим символы строки
  begin
    j:=j+1;            // увеличиваем счетчик символов в строке на 1
    write(s[i]);       // выводим символ на экран
    if (j = m) then    // если счетчик символов в строке сравнялся с максимумом
    begin
      writeln ();      // переходим на новую строку
      m:=m+1;          // увеличиваем максимум символов в строке
      j:=0;            // сбрасываем счетчик символов в строке
    end;
  end;
  readln();
end.

Вывод в консоли:

Введите произвольную строку:
fgfdskner;lnllrenponckvl ,bs'btortoot549-8jtpdofng59rthndggjyithfngkn
f
gf
dsk
ner;
lnllr
enponc
kvl ,bs
'btortoo
t549-8jtp
dofng59rth
ndggjyithfn
gkn