Процедуры с записями

[777pro777]

как с файлом сделать такую процедуру? "Номер курса, на котором наибольший процент мужчин"

Петров
Сергей
Андреевич
М
25
2
Сидоров
игорь
Валерьевич
м
18
4
козлов
владимир
Валерьевич
м
18
4

[Stilet]

var curs:array[1..10] of integer;
...
 while not eof(...
  readln(..., s);// Читаем фамилию
  ...
  readln(..., s);// мужик чи не?
  readln(..., i); //читаем номер курса
  if s in ['м','М'] then begin  inc(curs[i]); //увеличиваем счетчик
...

А далее в массиве curs находишь максимальное значение и номер этого максимума и будет номер курса