Составить программу, позволяющую вставить после каждого символа исходной строки пробел и вывести полученную строку на экран

program space;

var n:integer; //длина строки

s1, s:string;

begin

writeln ('Введите строку');

readln (s);

n:=length (s); / /определение длины строки

for i:integer:=1 to n do

begin

s1:=copy (s, i, 1); / /s1 - символ с номером i из строки s

write (s1, ' ');

//вывод в цикле очередного символа

//и причитающегося ему пробела

end;

end.