Записи о студентах: вывести номер курса, на котором больше всего мужчин - Turbo Pascal

uses crt;
type bible=record
     imya: string[20];
     familiya: string[20];
     otchestvo: string[20];
     pol: string[10];
     vozrast: string[10];
     kurs: integer;
     end;
var ppl: array [1..100] of bible;
    a, k, n, max, p, d: integer;
    i, j:byte;
    amax, c:string;
    s:bible;
begin
 writeln('Добро пожаловать в мобильную базу данных отдела кадров.');
 writeln('Пожалуйста, заполните слудующие данные:');
 write('Количество студентов: ');
 readln(n);
 writeln;
 write('Вносимых в БД кадров: ', n, '.');
 writeln;
 for i:=1 to n do
  begin
   writeln;
   writeln('Введите сведения о ',i,'-м студенте');
   write('Фамилия: ');
   readln(ppl[i].familiya);
   write('Имя: ');
   readln(ppl[i].imya);
   write('Отчество: ');
   readln(ppl[i].otchestvo);
   writeln('Пол(муж/жен):'); 
   readln(ppl[i].pol);
   writeln('Возраст(число):');
   readln(ppl[i].vozrast);
   writeln('Курс(номер): ');
   readln(ppl[i].kurs);
  end;
 writeln;
 repeat
   textcolor(7);
   writeln('Нумерация условий: a) = 1, б) = 2, в) = 3, г) = 4, Выход = 0');
   write('Введите номер условия для обработки списка: ');
   readln(k);
   writeln;
   if k > 4 then
    begin
     textcolor(4);
     writeln('ОШИБКА!');
     writeln('Введен неверный номер');
     writeln;
    end;
 until k<4;
 repeat
 textcolor(7);
 if k=1 then // ПЕРВОЕ УСЛОВИЕ
  begin
  end;
 textcolor(7);
 if k=2 then // ВТОРОЕ УСЛОВИЕ
  with ppl[i] do
  begin
   max:=1;
   i:=1;
   while i<n do
    begin
     a:=1;
     j:=i+1;
     while j<=n do
      if ppl[j].imya=ppl[i].imya then 
       begin
        a:=a+1;
        if j=n then n:=n+1
        else
         begin
          for p:=j to n-1 do
           ppl[p].imya:=ppl[p+1].imya;
           n:=n-1;
         end;
       end
      else j:=j+1;
      if a>max then
       begin
        max:=a;
        amax:=ppl[i].imya;
       end;
     i:=i+1;
    end;
    if max=1 then
     writeln('Одинаковых имен нет')
    else 
     writeln('Самое распространенное имя:',amax,'. Количестов студентов с таким именем ', max);
  end;  
 textcolor(7);
 if k=3 then // ТРЕТЬЕ УСЛОВИЕ
 begin
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if ppl[i].familiya>ppl[j].familiya then
     begin
      s:=ppl[i];
      ppl[i]:=ppl[j];
      ppl[j]:=s;
     end;
   for I:=1 to n do
    writeLn(ppl[i].familiya:10);
  end;
 textcolor(14);
 if k=4 then // ЧЕТВЕРТОЕ УСЛОВИЕ
  begin
  end;
 writeln;
 textcolor(7);
 if k=0 then exit;
 textcolor(7);
 write('Введите следующий номер условия. Для отмены - "0"): ');
 readln(k);
 writeln;
 until k=0;
end.