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

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