Задана строка S требуется подсчитать кол-во включений подстроки PS1 в строке S и заменить на подстроку  PS2

var s,p1,p2:string;i,k:integer;beginreadln(s);readln(p1);readln(p2);while (pos(p1,s)>0) do begininc(k);i:=pos(p1,s);delete(s,pos(p1,s),length(p1));insert(p2,s,i);end;writeln(k);writeln(s);end.