Как составить программу которая выводит на экран заданное слово с добавленными пробелами между символами

Var s,s1:string;
n,i:integer;
begin
writeln ('введи слово');
readln (s);
for i:=1 to length (s) do
write (s[i],' ');
end.