{* Задача 214 *}

Unit ZADACH214;
Interface
Implementation
Begin
 writeln('Написать программу подсчитывающую в каждой из заданных строк количество слов `мама`.');
End.

Program zadach214;

Uses zadach214.pas; {* Эту строку можно удалить *}
Type {* Типы переменных *}
  str = String[100];
  ms = Array[1..100] Of str;
Var {* В работе нам потребуются переменные: *}
  A                : ms;
Procedure vvod(m : integer;
Var {* Объявление переменных *}
  x : ms);
Var {* Объявление переменных *}
  i                 : integer;
  Begin
For i := 1 To m Do; {* Увеличиваем i от 1 до m с шагом 1 *}
Procedure moped(m : integer;
Var {* Необходимые переменные *}
  x : ms);
Var {* В работе нам потребуются переменные: *}
  i  : integer;
  k  : integer;
  st : str;
  Begin
For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
  Begin
k := 0;
st := A[i];
While pos('мама', st)0 Do
  Begin
k := k + 1;
delete(st, pos('мама', st), 4);
End;
writeln('кол-во слов мама в ', i, '-ой строке ', k);
End;

End;
Begin
vvod(5, A);
moped(5, A);
End....