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

Var
  s:string;  i:integer;begin
  readln(s);
  while (pos(' ',s)<>0) do
  begin
    i:=pos(' ',s);
    delete(s,i,1);
    insert('!?',s,i);
  end;
  writeln(s);
  readln;
end.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  s:=s.Replace(' ','!?'); s.Println
end.

Пример
Мама    мыла раму
Мама!?!?!?!?мыла!?раму