Хорошо, когда задают задачи с решением в одну строчку!
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln('Количество "МА" равно ',
ReadlnString('>').MatchValues('МА',RegexOptions.IgnoreCase).Count)
end.
Тестовое решение
> Мама мыла раму. Маша ела мандарины.
Количество "МА" равно 4