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

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

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

rewt34t54346t566

то в ответ программа должны вывести:

?

1 2 3 4 5 6

r ew t34 t543 46t56 6

var n, c1, c2, i: integer;
    s: string;
begin
 write('Введите произвольную строку: ');
 readln(s);
 writeln();
 n := length(s);
 i := 1;
 c1 := 1;
 c2 := 1;
 while i <= n do
  begin
   if c1 = c2 then
    begin
     writeln(s[i]);
     c2 := 1;
     c1 += 1;
    end
   else
    begin
     write(s[i]);
     c2 += 1;
    end;
   i += 1;
  end;
 readln();
end.