Pascal. Распечатать слово в строку, вставив между буквами пробел. заранее спасибо

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString('>').Println(' ')
end.

Пример
> Слово
С л о в о

var
  s: string;
  i: byte;

begin
  write('Введите строку: ');
  readln(s);
  for i := Length(s) downto 1 do
    Insert(' ', s, i + 1);
  writeln('Итоговая строка: ', s);
  readln;
end.