В очереди за билетами стоят мужчины и жещины. Сколько мужчин стоят в начале очереди до 1 женщины. ПАСКАЛЬ

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.

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