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

Урок 17

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

var m, c, d : integer;
    s0: string;

begin
  writeln('Введите строку');
  readln(s0);
  //s0 := 'rew2@#$$#435tr353453t4er4';
  m := 0;
  d := 0;
  for c := 1 to length(s0) do
  begin
    write(s0[c], ' ');
    d := d + 1;
    if d > m then
    begin
      writeln();
      m := m + 1;
      d := 0;
    end;
  end;
  readln();
end.

КОНСОЛЬ

Введите строку
srgersdfhsrje454eyhngfg
s
r g
e r s
d f h s
r j e 4 5
4 e y h n g
f g