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

//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.Пример:мыльная пена состоит из мыла.выльная пена состоит из выла.