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

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

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

var n, s: string;
    i, j: integer;
    b,m:integer;
begin
    writeln('enter an arbitrary string ');
    //readln(s);
    n:='';
    s:='rewt34t54346t566bgsrgbse4ye5h';
    m:=1;
    b:=m;
    for i := 1 to length(s) do
      begin
        n:= n+s[i];
        write(n,' ');
        m-=1;
        if (m=0) then
          begin
            writeln();
            m:=b+1;
            b:=m;
          end;
        n := '';
      end;
    readln();
end.      

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

enter an arbitrary string
r
e w
t 3 4
t 5 4 3
4 6 t 5 6
6 b g s r g
b s e 4 y e 5
h