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

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

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