Ввести с клавиатуры строку. Сформировать новую строку, в которой все символы из первой строки разделены пробелами. помогите, пожалуйста)

var a:integer;
    d:string;
    f:char;
    begin
writeln('введите сторку');
readln(d);
for a:=1 to length(d) do begin
f:=d[a];
write(f);
write(' ');
end;
end.