Определить лучшего спортсмена

[VNS]

Всем привет

Помогите пожалуйста со следующей задачей:

Таблица содержит результаты спортивных соревнований: ФИО, время на 100 метров, время на 1 км, прыжок в высоту, прыжок в длину, Описать и заполнить запись для 6 спортсменов. Определить лучшего спортсмена по каждому виду спорта.

Запись то я делаю, а вот как определить лучшего спортсмена все не могу понять..помогите пожалуйста!!!

Вот что я уже сделал:
Program Zapisi;
type record_type = record
fam: string;
name: string;
ot: string;
sto:integer;
klm:integer;
dlin:integer;
vsta:integer;
end;
var spisok:array[1..7] of record_type;
c:byte;
i:integer;
m:string;
s:integer;
begin
writeln ('Vvedite dannie');
for i:=1 to 6 do
begin
write ('Familia: '); readln(spisok[i].fam);
write ('Imia: '); readln(spisok[i].name);
write ('Ot4estvo: '); readln(spisok[i].ot);
write ('Vremia na 100m: '); readln(spisok[i].sto);
write ('Vremia na 1 kilometr: '); readln(spisok[i].klm);
write ('Prijok v dlinny: '); readln(spisok[i].dlin);
write ('Projok v visoty: '); readln(spisok[i].vsta);
writeln;
writeln;
writeln;
end;

Заранее благодарю

[ОДИНОЧЕСТВО В СЕТИ]

ну а теперь в цикле беги по записям ищи мин время для бега и максимальное расстояние и высоту для прыжков в длину и высоту соответственно

[VNS]

ну это понятно)а как это записать?что то типа такого:
min:=spisok[1];
for i:=1 to 6 do
begin
spisok[i].sto<min then begin
min:=a[i];
end;

[ОДИНОЧЕСТВО В СЕТИ]

вот так

min:=spisok[1].sto;
stomin:=1;
for i:=2 to 6 do
begin
if spisok[i].sto<min then begin
min:=spisok[i];stomin:=i;
end;

[ai\ekcah^p]

Program Zapisi;
uses crt;
type record_type = record
 fam: string;
 imya: string;
 ot: string;
 sto:integer;
 klm:integer;
 dlin:integer;
 vsta:integer;
 end;
var spisok:array[1..7] of record_type;

c:byte;
i,min1,min2,min3,min4:integer;
s1,s2,s3,s4:integer;
begin
 clrscr;
 writeln ('Vvedite dannie');
 for i:=1 to 3 do
  begin
   write ('Familia: '); readln(spisok[i].fam);
   write ('Imia: '); readln(spisok[i].imya);
   write ('Ot4estvo: '); readln(spisok[i].ot);
   write ('Vremia na 100m: '); readln(spisok[i].sto);
   write ('Vremia na 1 kilometr: '); readln(spisok[i].klm);
   write ('Prijok v dlinny: '); readln(spisok[i].dlin);
   write ('Projok v visoty: '); readln(spisok[i].vsta);
   writeln;
   writeln;
  end;

 min1:=spisok[i].sto;
 min2:=spisok[i].klm;
 min3:=spisok[i].dlin;
 min4:=spisok[i].vsta;
 s1:=1;s2:=1;s3:=3;s4:=4;
 for i:=2 to 3 do
 begin
  if spisok[i].sto<min1 then
  begin
   min1:=spisok[i].sto; s1:=i;
  end;
 end;
 for i:=2 to 3 do
 begin
  if spisok[i].klm<min2 then
  begin
   min2:=spisok[i].klm; s2:=i;
  end;
 end;
 for i:=2 to 3 do
 begin
  if spisok[i].dlin>min3 then
  begin
   min3:=spisok[i].dlin; s3:=i;
  end;
 end;
 for i:=2 to 3 do
  begin
  if spisok[i].vsta>min4 then
  begin
   min4:=spisok[i].vsta; s4:=i;
  end;
 end;
 writeln('  **  pobediteli  **');
 writeln('  na 100m        -> ',spisok[s1].fam);
 writeln('  na kilometr    -> ',spisok[s2].fam);
 writeln('  prijok v dliny -> ',spisok[s3].fam);
 writeln('  prijok v vysoty-> ',spisok[s4].fam);
 readln;
end.