Помогите, пожалуйста, составить программу, удаляющую слог «МА» из предложения. на паскале!

while Pos('MA', Str) > 0 do
Delete(Str, Pos('MA', Str), 2);

Универсально вот так:

DelStr := 'MA';
while Pos(DelStr, Str) > 0 do
Delete(Str, Pos(DelStr, Str), Length(DelStr));