ай нид хэлп

[Ostapov]

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

uses crt;
type sportsmen=record
      sname:string;
      vidsport:string;
      result:integer;
     end;
var x:array[1..100] of sportsmen;
    i,n,max:integer;
    f:text;
    imax:string;
begin
ClrScr;
repeat
 Write('n=');
 Readln(n);
until n in [1..100];
for i:=1 to n do
 with x[i] do
  begin
   Write('Фамилия : ');
   Readln(sname);
   write(' Вид спорта:');
   readln(vidsport);
   Write(' Результат: ');
   Readln(result);
  end;
Writeln('Список: ');
for i:=1 to n do
 Writeln(x[i].sname:8,x[i].vidsport:8,x[i].result:10);
max:=x[1].result;
 for i:=2 to n do
  if x[i].result>max then
   begin
    max:=x[i].result;
    imax:=x[i].sname;
   end;
Writeln('Лучший спортсмен: ',imax);
Assign(f,'sportsmen.txt');
Rewrite(f);
Writeln(f,'  Имя    Результат ');
for i:=1 to n do
 Writeln(f,x[i].sname:8,x[i].vidsport:8,x[i].result:10);
close(f);
Readln;
end.

[Aleksandr H.]

перед

max:=x[1].result;

надобно сделать масив видов спорта(список оригинальных vidsport, а тогда уже искать макс по каждому елементу из этого списка