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.