Задана строка 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.