Помогите пожалуйста, очень необходимо...Необходимо дополнить программу

Помогите пожалуйста, очень необходимо...
Необходимо дополнить программу недостающими
командами.
(Получите новую строку,заменив в данной строке все слоги "ма" на "па".)
program zadacha2;
var t,st:string;
n,i:integer;
Begin
writeln('введите текст');
..........................................;
st:=t;
n:=length (st);
for i:=1 to n-1 do
if copy(st, i,2)='ма' then
begin
delete(st, i,2);
.......................;
end;
writeln('старая строка=',t,'новая строка=',st);
End.