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

uses crt;
{пользовательский тип sport}
type sport = record
     soname: string;   {фамилия}
     rezult: real;  {результат}
     vidSport: string; {вид спорта}
end;
{функция 1}
function vvod(N:integer;a:array[1..100] of sport):integer;
var i:byte;
begin
for i:=1 to N do begin
writeln('Введите фамилию, вид спорта и лучший результат ',i,' спортсмена: ');
readln(a[i].soname);
readln(a[i].vidSport);
readln(a[i].rezult);
end;
end;
{функция 2}
function best(n:integer;a:array[1..100] of sport;s: string): integer;
var i,j,k:byte;
begin
k:=1;
for i:=1 to N do begin
for j:=2 to N do begin
If (a[i].vidSport = s) and (a[j].vidSport = s) then begin
if a[i].rezult < a[j].rezult then begin k:=j
end; end; end; end;
writeln(k);
writeln(a[k].VidSport,': ','Лучший спортсмен ',a[k].soname,' с результатом ',a[k].rezult);
end;
 
{тело программы}
var N:integer;
    a: array[1..100] of sport;
begin
Write('Введите количество спортсменов: '); readln(N);
{используем функцию на ввод массива записей}
vvod(N,a);
{используем функцию на определение лучшего в данном виде спорта}
best(N,a,'прыжки в длину');
best(N,a,'прыжки в высоту');
best(N,a,'тяжёлая атлетика');
end.