Хотел бы научиться

[rezak91]

function SumMatrix( aMatrix : array[0..N-1,0..N-1] of Integer) : Integer;
здесь выдается 54:Of expectied

[rezak91]

если ты тут, стукни в асю 2642711,а тама договоримся

[rezak91]

program zadacha2;
type TSport = record
end;
var
family,name,fater:string;
chas:word;
height,long:word;
i,n:integer;
a:array [1..60] of TSport;
best : Real;
bestID : Integer;
begin;
writeln ('vvedite koli4estvo sportsmenov');
readln(n);
for i:=1 to n do
begin
writeln ('vvedite family');
readln(family);
writeln('vvedite name');
readln(name);
writeln('vvedite fater');
readln(fater);
writeln('vvedite vremya za 1km');
readln(chas);
writeln('vvedite prijok v visoty');
readln (height);
writeln ('vvedite prijok v dlinny');
readln(long);
end;
best:=long;
bestID:=1;
for i:=2 to n do
begin
if long > best then
begin
best:=long;
bestID:=i;
end;
end;
writeln(bestID);
readln;
end.

помогите, чуть неправильно выдает ответ, всмысле не показывает который макс прыгул в длинну. Язык:турбо Паскаль, условие Организовать массив записей, который содержит информацию о соревнованиях спортсменов троеборцев (ФИО, время на 1км, прыжок в высоту, прыжок в длину). определить лучшего спортсмена по прыжкам в длину.

[Z1000000]

program zadacha2;
type TSport = record
 family,name,fater:string;
 height,long,chas:Integer;
end;
var
 i,n:integer;
 a:array [1..60] of TSport;
 best : Real;
 bestID : Integer;
begin;
writeln ('vvedite koli4estvo sportsmenov');
readln(n);
for i:=1 to n do
  begin
  writeln ('vvedite family');
  readln(a[i].family);
  writeln('vvedite name');
  readln(a[i].name);
  writeln('vvedite fater');
  readln(a[i].fater);
  writeln('vvedite vremya za 1km');
  readln(a[i].chas);
  writeln('vvedite prijok v visoty');
  readln (a[i].height);
  writeln ('vvedite prijok v dlinny');
  readln(a[i].long);
  end;
best:=a[1].long;
bestID:=1;
for i:=2 to n do
 if a[i].long > best then
  begin
  best:=a[i].long;
  bestID:=i;
  end;
writeln(a[bestID].family , ' ', a[bestID].name, ' ',a[bestID].long );
readln;
end.