Паскаль составьте программу, которая заменяет в строке s слово "мама" на слово "папа" пример ввода: мама играет с ребенком. пример вывода: папа играет с ребенком.

Var
i:integer;
s:string;
begin
readln(s);
i := Pos('мама', s); 
if i > 0 then
 begin  
Delete(s, i, 4);  
Insert('папа', s, i); 
end;
writeln(s);
end.