Записи. Составить список команд - Turbo Pascal

Формулировка задачи:

Program olimp;
{$R-}
        uses crt;

 type
  zap=record
   fam:string;
   kol:integer;
   class:string[3];
  end;
 
 var
  i,j,n:byte;
  a:array[1..100] of zap;
  rez:integer;
  max:zap;
 
 procedure enter{(var a:array of integer)};
  var x:integer;
 begin
 writeln('<<Сбор сведений для составления команды>>');
 writeln('-----------------------------------------');
{ write('Введите необходимый порог баллов: '); readln(rez);}
 write('Введите количество участников (не менее 6): '); readln(n);
  writeln('Необходимы сведения о участниках!');
 for i:=1 to n do
  with a[i] do
  begin
   write('Фамилия участника: '); readln(fam);
   write('Его баллы: '); readln(kol);
   writeln('-----');
  end;
 
  begin
   rez:=a[i].kol;
   for i:=1 to n do
   begin
     if a[i].kol>=rez then rez:=a[i].kol;
     write('Лучший результат у: ',a[i].fam,'. Его баллы: ',rez);
    readln;
    end;
 end; end;
 
 begin
      clrscr;
 enter;
end.

На сборах по подготовке к олимпиаде по физике участвовало всего N учеников из 9,10 и 11х классов. Про каждого известно фамилия, имя, класс, баллы за задачи. Требуется составить список команд для каждой параллели по 5 человек отобрав тех, у кого больше всего баллов.

У меня некорректно работает поиск наивысшего балла. Если введу количество учеников <=4, то макс.балл найдется, если >=5, то показывает уже не макс.балл. И как можно сформировать список команды по полученным данным?

Решение задачи: «Записи. Составить список команд»

Листинг программы

rez:=a[1].kol;
   for i:=1 to n do
     if a[i].kol>=rez then begin rez:=a[i].kol;
                                 fam1:=a[i].fam; {fam1 переменная типа string}
end;
rez2:=a[1].kol;
   for i:=1 to n do
     if (a[i].kol>=rez2) and (a[i].fam<>fam1)  then begin rez2:=a[i].kol;
                                 fam2:=a[i].fam; {fam2 переменная типа string}
end;

Объяснение кода листинга программы

Создаётся переменная rez типа Integer, которая инициализируется значением a[1].kol.
Затем идёт цикл for, который выполняется n раз.
Внутри цикла проверяется условие: если значение a[i].kol больше или равно значению переменной rez, то переменная rez обновляется значением a[i].kol.
Также внутри цикла проверяется условие: если значение a[i].fam не равно fam1, то переменная fam2 обновляется значением a[i].fam.
По завершении цикла переменные rez и fam2 сохраняются в соответствующие переменные.