Program pr;
var pol:string;
i,k,n:integer;
begin
repeat
writeln ('введите количество людей в очереди');
readln (n);
until n>0;
k:=0;
for i:=1 to n do
begin
writeln ('введите пол очередного человека в очереди');
readln (pol);
if pol='мужчина' then k:=k+1
else break {принудительное завершение цикла};
end;
if k=0 then writeln ('мужчин в начале очереди нет') else writeln ('мужчина в начале очереди ',k);
end.

Женщин надо пропускать,потому нет их в начале!