Задача 6.
Условие: Написать программу подсчитывающую в каждой из заданных строк количество слов `мама`.

Программа: 
program S2_Z6;
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 begin writeln('введите ',i,'-ю строку');
readln(A[i]);end; end;

procedure moped(m:integer;var x:ms);
var i,k:integer; st:str;
begin
for i:=1 to m do 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.