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

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

//в конце должно быть меню
//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.

не совсем поняла про меню.
мы должны выбрать, КАКОЕ место нас интересует (одно), и выведется фамилия? Как меню должно выглядеть - графическое, или достаточно простого "введите номер"?

1)Вводишь информацию о спортсменах
2)В конце появляется меню:
нажмите 1 для просмотра данных спортсмена который занял первое место;
нажмите 2 для просмотра данных спортсмена который занял второе место;
нажмите 3 для просмотра данных спортсмена который занял третье место;

не могу понять как второго и третьего в поиск записать

Уже разобрался !!!