Ошибка с типом Запись

{2. Имеется файл "Kurs" содержащий сведения о студентах
1 курса: фамилию, номер группы, оценки по предметам(см. Лекцию).
Написать программу которая выводит № группы имеющий наибольший
средний балл.}
 
 
type
  Student = record
    name: string[12];
    group: byte;
    Algebra, Matan, Progr, Fil: byte;
  end;
 
var
  Kurs: text; S: Student; Ot: real; Sr1, Sr2, Sr3, max: real;
 
begin
  max := 0;
  Assign(Kurs, 'E:\Kurs.txt');
  Reset(Kurs);
  Sr1 := 0;
  Sr2 := 0;
  Sr3 := 0;
  while not Eof(Kurs) do
  begin
    readln(Kurs, S.name, S.group, S.Algebra, S.Matan, S.Progr, S.Fil);
    writeln(S.name, ' ', S.group, ' ', S.Algebra, ' ', S.Matan, ' ', S.Progr, ' ', S.Fil);
    if S.group = 15 then Sr1 := Sr1 + (S.Algebra + S.Matan + S.Progr + S.Fil) / 4;
    if S.group = 12 then Sr2 := Sr2 + (S.Algebra + S.Matan + S.Progr + S.Fil) / 4;
    if S.group = 11 then Sr3 := Sr3 + (S.Algebra + S.Matan + S.Progr + S.Fil) / 4;
  end;
  if Sr1 > Sr2 then begin Ot := 15; max := Sr1 end else begin Ot := 12; max := Sr2; end;
  if Sr3 > max then begin Ot := 11; max := Sr3; end;
  write('Наибольший средний балл имеет ', Ot, ' группа.');
  Close(Kurs);
end.

Бобров       15 3 4 5 4
Воробьёв     11 4 4 5 3
Тамасян      15 2 4 2 4
Волошин      11 3 5 4 5
Пышкина      12 2 4 4 3
Приходько    12 4 4 3 3