Дана строка, содержащая слова, разделенные одним или несколькими пробелами. Написать программу, заменяющую каждый пробел парой символов ‘?!’ — Pascal(Паскаль)

uses crt;
var s: string; i: byte;
begin
clrscr;
write('введите строку: ');
readln(s);
for i:=length(s) downto 1 do
if s[i]=' ' then
begin
delete(s,i,1);
insert('?!',s,i);
end;
writeln('результат: ',s);
end.