Заменить в предложении все мы на вы

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var
  R,S:string;
  p:integer;
begin
  read(s);
  R:='';
  repeat
    p:=pos('мы',S);
    if P>1 then R:=R+copy(S,1,p-1);
    if P>0 then begin
      R:=R+'вы';
      delete(S,1,P+length('мы')-1);
    end;
  until p=0;
  S:=R+S;
  write(s);
 readln;
end.

Пример:

мыльная пена состоит из мыла.
выльная пена состоит из выла.