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

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