Вывести номер курса, на котором наибольший процент мужчин

type
    TStudent = record
        firstName, patronymic, lastName: String[35];
        sex: Boolean;
        age: 16..35;
        studyYear: 1..5;
    end;
    TStudentArray = record
        ar: Array[Word] Of TStudent;
        size: Word;
    end;
    TStatistic = Array[Boolean] Of Word;
    TStatistic2 = record
        name: String[35];
        quantity: Word;
    end;
 
procedure InitStudentArray(var sa: TStudentArray);
begin
    sa.size := 0;
end;
 
procedure AddStudent(var sa: TStudentArray); //метод добавления студента в список
var
    c: Char;
begin
    with sa do
    begin
        with ar[size] do
        begin
            Write('First name: '); ReadLn(firstName);
            Write('Patronymic: '); ReadLn(patronymic);
            Write('Last name: '); ReadLn(lastName);
            repeat
                Write('Sex (F|M): '); ReadLn(c);
            until (c in ['F', 'M', 'f', 'm']);
            sex := ((c = 'M') Or (c = 'm'));
            Write('Age (16..35): '); ReadLn(age);
            Write('Study year (1..5): '); ReadLn(studyYear);
        end;
        Inc(size);
    end;
end;
 
procedure PrintStudentList(const sa: TStudentArray); //вывод на печать списка
var
    i: Word;
begin
    with sa do
        if (size = 0)
        then
            WriteLn('List is empty!')
        else
            for i := 0 to size - 1 do
                with ar[i] do
                    WriteLn(#9, i + 1, '. ', lastName, ' ', firstName[1], '.', patronymic[1], '.');
end;
 
procedure ZadA(const sa: TStudentArray); //задание А
var
    a: Array[1..5] Of TStatistic;
    i: Word;
    temp: Boolean;
    maxId: 1..5;
    max: Double;
begin
    with sa do
        if (size = 0)
        then
            WriteLn('List is empty!')
        else
        begin
            for i := 1 to 5 do
                for temp := False to True do
                    a[i, temp] := 0;
            //составляем сколько кого на каждом курсе
            for i := 0 to size - 1 do
                with ar[i] do
                    Inc(a[studyYear, sex]);
            maxId := 1; max := 0;
            //ищем максимальное соотношение
            for i := 2 to 5 do
                if ((a[i, False] + a[i, True] <> 0) And (a[i, True] / (a[i, False] + a[i, True]) > max))
                then
                begin
                    maxId := i;
                    max := a[i, True] / (a[i, False] + a[i, True]);
                end;
            if (max = 0)
            then //если мужчин вообще нет
                WriteLn('Not found any!')
            else //иначе показываем наилучшее соотношение
                WriteLn('Answer A: ', maxId, ' ', (max * 100):0:2, '%');
        end;
end;
 
function BestName(const sa: TStudentArray; const bySex, byPatr: Boolean): String; //поиск самого частого имени или отчества
var
    stat: Array[Word] Of TStatistic2;
    i, j, nStat, maxId: Word;
    isFound: Boolean;
begin
    //составляем таблицу частот
    with sa do
    begin
        nStat := 0;
        for i := 0 to size - 1 do
            if (ar[i].sex = bySex) //фильтруем по полу
            then
            begin
                j := 0; isFound := False;
                //ищем в уже отобранных
                while ((j < nStat) And (Not isFound)) do
                begin
                    if (byPatr)
                    then
                        isFound := (ar[i].patronymic = stat[j].name)
                    else
                        isFound := (ar[i].firstName = stat[j].name);
                    Inc(j);
                end;
                if (isFound)
                then //если такое имя уже есть в статистике - увеличиваем количество
                    Inc(stat[j - 1].quantity)
                else //иначе - создаём новый
                begin
                    stat[nStat].quantity := 1;
                    if (byPatr)
                    then
                        stat[nStat].name := ar[i].patronymic
                    else
                        stat[nStat].name := ar[i].firstName;
                    Inc(nStat);
                end;
            end;
    end;
    //ищем максимум
    maxId := 0;
    for i := 1 to nStat do
        if (stat[i].quantity > stat[maxId].quantity)
        then
            maxId := i;
    BestName := stat[maxId].name;
end;
 
procedure ZadB(const sa: TStudentArray);
begin
    if (sa.size = 0)
    then
        WriteLn('List is empty!')
    else
    begin
        WriteLn('Answer B: ', BestName(sa, False, False));
        WriteLn('Answer B: ', BestName(sa, True, False));
    end;
end;
 
procedure SwapStudents(var x, y: TStudent); //обмен значений
var
    z: TStudent;
begin
    z := x;
    x := y;
    y := z;
end;
 
procedure SortByName(var sa: TStudentArray); //пузырьковая сортировка по фамилии
var
    i, n, nNew: Word;
begin
    with sa do
        if (size > 1)
        then
        begin
            n := size - 1;
            repeat
                nNew := 0;
                for i := 1 to n do
                    if (UpCase(ar[i - 1].lastName) > UpCase(ar[i].lastName))
                    then
                    begin
                        SwapStudents(ar[i - 1], ar[i]);
                        nNew := i;
                    end;
                n := nNew;
            until (n = 0);
        end;
end;
 
procedure ZadC(const sa: TStudentArray);
var
    bestFirstName, bestPatronymic: String[35];
    saFiltered: TStudentArray;
    i: Word;
begin
    if (sa.size = 0)
    then
        WriteLn('List is empty!')
    else
    begin
        bestFirstName := BestName(sa, False, False); //находим самое частое имя
        bestPatronymic := BestName(sa, False, True); //и самое частое отчество
        saFiltered.size := 0;
        for i := 0 to sa.size - 1 do
            if ((Not sa.ar[i].sex) And (sa.ar[i].firstName = bestFirstName) And (sa.ar[i].patronymic = bestPatronymic)) //фильтруем согласно заданию в отдельный временный массив
            then
            begin
                saFiltered.ar[saFiltered.size] := sa.ar[i];
                Inc(saFiltered.size);
            end;
        if (saFiltered.size = 0)
        then
            WriteLn('Cannot found any!')
        else
        begin
            SortByName(saFiltered); //пущаем сортировку
            PrintStudentList(saFiltered); //выводим на экран
        end;
    end;
end;
 
var
    s: TStudentArray;
begin
    //тут можно было бы добавить менюшку и прочее-прочее, но лень
    InitStudentArray(s);
    AddStudent(s);
    AddStudent(s);
    AddStudent(s);
    AddStudent(s);
    AddStudent(s);
    PrintStudentList(s);
    ZadA(s);
    ZadB(s);
    ZadC(s);
end.