Общий алгоритм решения:
Нужно создать строку (2) из пробелов той же длины, что и начальная строка (1).
После этого создаём пустую строку (3),
в которую в цикле по очереди записываем по одному символу из строки (1) и (2).Добавлено (31.01.12, 18:45)
---------------------------------------------
Quote (Berestovskiy)
write(s[i],' ');
Это будет простой вывод на экран.
Я так понимаю, что нужен реальный исходный объект - строка с пробелами(удвоенная)...Добавлено (31.01.12, 18:50)
---------------------------------------------
Var
s,s1:string;
i:word;
begin
readln(s);
s1:='';
for i:=1 to length(s) do
s1:=s[i]+' ';
write(s1);
end.
такой вариант является компромисным и создаёт реальный объект удвоенного размера.