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

[Silverstone]

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

Program olimp;
{$R-}
        uses crt;
{ const best=40;}

 type
  zap=record
   fam:string;
   kol:integer;
   class:integer;
  end;

 var
  i,n:byte;
  a:array[1..100] of zap;

 procedure enter;
 begin
 writeln('<<Сбор сведений для составления команды>>');
 writeln('-----------------------------------------');
 write('Введите количество участников (не менее 6): '); readln(n);
  writeln('Необходимы сведения о участниках!');
 for i:=1 to n do
  with a[i] do
  begin
   write('Фамилия участника: '); readln(fam);
   write('Его баллы: '); readln(kol);
   writeln('-----');
  end;
 end;

 procedure search;
 var i,n,s:byte;
 best:byte;
  begin
   best:=a[i].kol;
   for i:=1 to n do
    begin
     if a[i].kol>=best then best:=a[i].kol;
     write('Лучший результат у: ',a[i].fam,'. Его баллы: ',best);
    readln;
  end; end;
 begin
      clrscr;
 enter;
 search;
end.

Как к моему коду применить пузырьковую сортировку?

[Stilet]

Например так:

function GreatThen(q,w:zap);
begin
  GreatThen:=q.kol>w.kol;
end;

procedure sort;
var q,w:integer;z:zap;
begin
 for q:=1 to n do
  for w:=1 to n do
    if GreatThen(a[q],a[w]) then begin
      z:=a[q];a[q]:=a[w];a[w]:=z;
    end;
end;

[Silverstone]

Сообщение от Stilet

function GreatThen(q,w:zap);

ругается на месте ; - просит :

[Leshii]

Да и не только двоеточие спросит ...

пример

function zap ( a: real):real;

[Stilet]

Ну так дай что просит )
Функция логическая. Допиши сам, я видать забыл.

пример

Это ты здря написал. Запутаешь автора, он и так в потемкиных весь.