Накосячил :-(

[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км, прыжок в высоту, прыжок в длину). определить лучшего спортсмена по прыжкам в длину. (если можно напишите полностью рабочую программу от програм до енд. ) заранее оч. большое спасибо!

[zumm]

program zadacha2;
type SM = record
 surname,name,fater: string;
 chas,height,long: word;
end;
var
 i,n: integer;
 a:array [1..60] of SM;
 best: word;
 bestID: Integer;
begin;
 writeln ('Введите количество спортсменов: ');
 readln(n);
 for i:=1 to n do
 begin
  write('Введите фамилию ', n, '-го спортсмена: ');
  readln(a[n].surname);
  write('Введите имя ', n, '-го спортсмена: ');
  readln(a[n].name);
  write('Введите отчество ', n, '-го спортсмена: ');
  readln(a[n].fater);
  write('Введите время за 1 км ', n, '-го спортсмена: ');
  readln(a[n].chas);
  write('Введите прыдок в высоту ', n, '-го спортсмена: ');
  readln (a[n].height);
  write('Введите прыжок в длину ', n, '-го спортсмена: ');
  readln(a[n].long);
 end;
 best:=0;
 for i:=1 to n do
 begin
  if best<a[n].long then
  begin
   best:=a[n].long;
   bestID:=n;
  end;
 end;
 writeln('Лучший спортсмен ', a[bestID].surname, ' ', a[bestID].name, ' ', a.[bestID].family);
 readln;
end.

исправишь синтаксические ошибки (если есть) и все будет работать.

PS ты вообще понял что в твоем коде делается? Небось слышал звон да не знаешь где он?

PSS я не поленился переписать код, а ты не поленись нажать на весы и сказать спасибо)