Что не так в программе

[Yakup]

Type
 Student = record
  FIO:string[30];
  bf_year, bf_month, bf_day : integer;
  balls:array[1..5] of integer;
 End;

 const
  MaxSize=100; {максимальное число студентов, которое можно обработать}
  
 Var
  s : Student;
  f : file of Student;
  i,j,n : integer;
  StudArr : array[1..MaxSize] of Student;
  sred_ball : real;
 Begin
   Assign(f,'SCHOOL');
   Reset(f);
   if FileSize(f)>MaxSize 
   then begin
     WriteLn('Слишком много записей в файле. Выделено память не более ',MaxSize,' записей.');
     Close(f);
   end
   else begin
     n := FileSize(f);
     for i:=1 to n do Read(f, StudArr[i]);
while not(eof(f)) do 
begin
  i:=i+1;
 end;
 for i:=1 to n do begin
  e[i].a:=(d[i].a+d[i].b+d[i].c)/3;
  e[i].b:=i;
 end;
 for i := n downto 2 do
        for j := 2 to i do
          if e[j].a < e[j - 1].a then
            begin
              x := e[j].a;
              y:=e[j].b;
              e[j].a := e[j - 1].a;
              e[j].b := e[j - 1].b;
              e[j - 1].a := x;
              e[j - 1].b := y;
            end;
 for i:=1 to n do
  writeln(d[e[i].b].fio,': ',e[i].a);
 writeln('Введите ФИО');
 readln(s);
 for i:=1 to n do if d[i].fio=s then
  writeln('ФИО: ',d[i].fio,', ДР: ',d[i].dr,', оценки: ',d[i].a:2,d[i].b:2,d[i].c:2);
 writeln('Средний балл меньше 3-х:');
 for i:=1 to n do if e[i].a<3 then writeln(d[e[i].b].fio,': ',e[i].a);
 readln;
end;
end.

помгите исправить ошибки

[WorldMaster]

Какие ошибки?