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

Question

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

Answer 1

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.

Answer 2

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

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

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