Дана строка, содержащая слова, разделенные одним либо несколькими пробелами. Написать программу,

program zz1;
var s:string;
i,d:integer;
begin
read(s); //вводим начальную строчку
d:=length(s); //определяем длину начальной строчки
for i:=1 to d do //перебираем все буковкы от первой до заключительной
if s[i]= then begin delete(s,i,1);insert(?,s,i);end; //проверяем, если знак из строчки равен пробелу, то удаляем пробел и на его место вставляем "?"
writeln(приобретенная строчка - ,s); //выводим ответ
end.