Написать программу ввода информации о студентах и вывода номера курса, на котором больше всего мужчин

program _record;
 
const
 
 fout='output.txt';
 
type 
 
 TStudents=record
  surname:string[12];
  name:string[12];
  patronymic:string[12];
  sex:(male,female);
  age:16..35;
  iclass:1..5;
 end;
 
 TMaleInfo=Array [1..5] of word;
 
var
 Student:TStudents;
 fo:text;
 end_input:boolean;
 MaleInfo:TMaleInfo;
 
Procedure inputinfo(var   aStudent :TStudents;
                    const fileout  :text;
                    var   end_in   :boolean);
 var
  
  cS:char;
 
 begin
 
 { input to record }
 with aStudent do begin
                    Write('Фамилия:');readln(surname);
                    Write('Имя: ');readln(name);
                    Write('Отчество: ');readln(patronymic);
                    repeat
                     write('Пол (М/Ж): ');Readln(cS);
                    until (cS='М') or (cS='Ж');
                    if cS='M' then sex:=female
                              else sex:=male;
                    Write('Возраст: ');Readln(age);
                    Write('Курс: ');Readln(iclass);
                  end;
 
 { output to file }
 With aStudent do begin
                   Write(fileout,surname,' ');
                   Write(fileout,name,' ');
                   Write(fileout,patronymic,' ');
                   Write(fileout,sex,' ');
                   Write(fileout,age,' ');
                   Write(fileout,iclass,';');
                  end;
 
{ next record? }
repeat
 Write('Продолжать ввод информации? (д/н): ');readln(cS);
until (cS='д') or (cS='н');
if cS='д' then end_in:=FALSE
          else end_in:=TRUE;
end;
 
function FindMax(Mas:TMaleInfo):word;
 var
  i,max:integer;
 begin
  max:=Mas[1];
  FindMax:=1;
  for i:=1 to 5 do
  if Mas[i]>max then begin
                      max:=mas[i];
                      FindMax:=i;
                     end;
end;
  
Begin
{ input & find  male }
 Assign(fo,fout);Rewrite(fo);
 repeat
  inputInfo(Student,fo,end_input);
  With Student do 
  if sex=male then
  inc(MaleInfo[iclass]);               
 until end_input;
 Close(fo);
 
{ find & out max male }
 Write('Больше всего мужчин на ',FindMax(MaleInfo),' курсе') 
End.