Имею вопрос по работе с записями

[Stepis]

Итак, 15-го числа сего месяца у меня экзамен по информатике. Никто не знает, что попадётся на экзамене, поэтому решил посмотреть записи . Начал решать задачу и запнулся. Прошу форумчан помочь мне найти ошибку.
Условие задачи
Дана группа студентов, найти по результатам трёх экзаменов лучшего студента.
Собственно моя программа.

uses
SysUtils;
TYPE
trecord=record
name:string[10];
surname:string[20];
mark1,mark2,mark3:byte;
result: real;
goodstud,beststud:boolean;
end;
student=array [1..5] of trecord;
var i,j,k:byte;
bestresult:real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
for i:=1 to 5 do
begin
student[i].goodstud:=false;
writeln('Vvedite imya studenta');
readln(student[i].name);
writeln('Vvedite familiju studenta');
readln(student[i].surname);
writeln('Vvedite otsenki cherez zapyatuju');
read(student[i].mark1);
read(student[i].mark2);
read(student[i].mark3);
student[i].result:=(mark1+mark2+mark3)/3;
if ((student[i].mark1>3) and (student[i].mark2>3) and (student[i].mark3>3)) then
student[i].goodstud:=true;
end;
bestresult:=student[1].result;
for j:=1 to 5 do
begin
if ((student[j].result)>bestresult) then
bestresult:=student[j].result
end;
for k:=1 to 5 do
begin
if student[k].result=bestresult then
begin
student[k].beststud:=true;
writeln ('Lutshim yavlayetsya student', student[k].surname);
end;
if (student[j].goodstud) then
writeln('Horoshim studentom yavlayetsya student', student[k].surname); end;

readln
end.

[MalexG]

А в чём собственно закавыка?

[MalexG]

Нашёл я твои закавыки. См. код.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  trecord = record
    name: string[10];
    surname: string[20];
    mark1,mark2,mark3: byte;
    result: word;
    goodstud,beststud: boolean;
  end;
  
var
  i: byte;
  bestresult: word;
  student: array [1..5] of trecord;

begin
  bestresult := 0;
  for i:=1 to 5 do
  begin
    student[i].goodstud := false;
    writeln('Vvedite imya studenta');
    readln(student[i].name);
    writeln('Vvedite familiju studenta');
    readln(student[i].surname);
    writeln('Vvedite otsenki cherez probel');
    readln(student[i].mark1, student[i].mark2, student[i].mark3);
    student[i].result := (student[i].mark1 + student[i].mark2 + student[i].mark3);
    if ((student[i].mark1 > 3) and
        (student[i].mark2 > 3) and
        (student[i].mark3 > 3))
    then student[i].goodstud:=true;
    if student[i].result > bestresult then
      bestresult := student[i].result
  end;

  writeln ('Lutshim yavlayetsya student');
  for i:=1 to 5 do
    if (student[i].result=bestresult)  then
    begin
      student[i].beststud := true;
      writeln(student[i].surname);
    end;

  writeln('Horoshim studentom yavlayetsya student');
  for i:=1 to 5 do
    if student[i].goodstud and (not student[i].beststud) then
      writeln(student[i].surname);

  readln;
end.

[Stepis]

Спасибо. Инквизиция не забудет!