Помогите пожалуйста, очень нужно... Нужно дополнить программу недостающими командами. (Получите новую строку,заменив в заданной строке все слоги "ма" на "па".) program zadacha2; var t,st:string; n,i:integer; Begin writeln('введ...

Помогите пожалуйста, очень нужно... Нужно дополнить программу недостающими командами. (Получите новую строку,заменив в заданной строке все слоги "ма" на "па".) 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.