Delphi

for i:=1 to 10 do
begin
s:=m1.Lines.String[i];
While(Pos("Маша",s)<>0)do
begin
q:=Pos("Маша",s);
delete(s,q,4);
insert("Паша",s,q);
end;
end;
Вроде так. Я не могу проверить, негде.