Дана строка символов. Изменить ее таким образом, чтобы все символы отделялись друг от друга одним пробелом - Free Pascal

Дана строка символов. Изменить ее таким образом, чтобы все символы отделялись друг от друга одним пробелом.

Листинг программы

var
  s: String;
  i: Integer;
begin
  ReadLn(s);
  for i:=Length(s) downto 2 do Insert(' ',s,i);
  WriteLn(s);
end.

Объяснение кода листинга программы

В начале объявляются две переменные: s (строка) и i (целое число).
Затем с помощью функции ReadLn() в переменную s считывается строка символов.
Далее начинается цикл for, который будет выполняться, пока длина строки s больше двух.
Внутри цикла с помощью функции Insert() в строку s вставляется пробел между символами.
Пробел вставляется начиная с позиции i до конца строки.
После каждой итерации цикла длина строки уменьшается на 1.
В конце выполнения цикла выводится на экран измененная строка.