записи поиск Опции

[xekzzz]

Здравствуйте, помогите мне пожалуйста дописать поиск !!! Заранее спасибо!!!

//Составьте список группы спортсменов участвовавших в соревнованиях по прыжкам в длину.
//Для каждого спортсмена укажите номер участника фамилию, имя, команду, результат.
//Осуществите поиск информаций о спортсменах, занявших первое, второе и третье место...

//в конце должно быть меню
//1)место
//2)место
//3)место
//как его можно сделать ???


program sl;
uses crt;
type
 sp=record
 fam,name,komand:string;
 nom,rez:integer;
end;

var
 m:array[1..100] of sp;
 k,i,max:integer;

procedure gtx;
begin
 write('vvedite koli4estvo u4astnikov ->');
 readln(k);
 for i:=1 to k do
   with m[i] do
     begin
       write('vvedite imya->');
       readln(name);
       write('vvedite familiu->');
       readln(fam);
       write('vvedite komandu->');
       readln(komand);
       write('vvedite nomer->');
       readln(nom);
       write('vvedite rezyltat->');
       readln(rez);
       writeln;
       writeln;
       end;
     end;

procedure poiskk;
begin
 max:=0;
  for i:=1 to k do
    if m[i].rez > max then
max:=m[i].rez;
writeln('         ~~~pervoe mesto zanyal~~~');
writeln('_____________________________________________');
writeln('imya   |','familiya|','komanda    |','nomer |','rezyltat |');
writeln('_____________________________________________');
writeln(m[i].name:7,'|',m[i].fam:7,' |',m[i].komand:11,'|',m[i].nom:5,' |',max:9,'|');
 end;


begin
 gtx;
 poiskk;
end.