Программа для поиска среднего балла каждого учащегося и общего среднего балла

type students = record
     kurs : byte;
     grup : byte;
     numb : byte;
     fam  : string[15];
     pr1, pr2, pr3, pr4 : string[15];
     opr1, opr2, opr3, opr4 : byte;
     end;
 
var a : students;
    F2 : text;
    f : file of students;
    n, i : integer;
    sr, s: real;
    
 begin
 write('Введите кол-во студентов: ');
 readln(n);
 assign(F,'G:\pract\zapisi\spisok.doc');
 rewrite(F);
 with a do
 begin
  for i:= 1 to n do
   begin
    write('Введите курс ',i,' студента: ');
    readln(kurs);
    write('Введите группу ',i,' студента: ');
    readln(grup);
    write('Введите номер в списке ',i,' студента: ');
    readln(numb);
    write('Введите фамилию ',i,' студента: ');
    readln(fam);
    write('Название первого предмета для ',i,' студента: ');
    readln(pr1);
    write('Оценка по первому предмету для ',i,' студента: ');
    readln(opr1);
    write('Название второго предмета для ',i,' студента: ');
    readln(pr2);
    write('Оценка по второму предмету для ',i,' студента: ');
    readln(opr2);
    write('Название третьего предмета для ',i,' студента: ');
    readln(pr3);
    write('Оценка по третьему предмету для ',i,' студента: ');
    readln(opr3);
    write('Название четвертого предмета для ',i,' студента: ');
    readln(pr4);
    write('Оценка по четвертому предмету для ',i,' студента: ');
    readln(opr4);
    write(F, a);
   end;
 end;
 close(F);
 
 reset(F);
 assign(F2,'G:\pract\zapisi\sredbal.txt');
 rewrite(F2);
 while not eof(F) do
 begin
 for i:=1 to n do
 read(F, a);
 begin
 sr:=(a.opr1+a.opr2+a.opr3+a.opr4)/4;
 s:=sr/n;
 writeln('средний балл по группе', s);
 end;
 for i:=1 to n do with students do
    begin with students do
      if sr>=s
        then write(F2,'студенты, у которых балл выше среднего: ', a.fam, sr);
        end;        
    end;
close(f);
close(f2);
end.

 for i:=1 to n do // with students do
    begin // with students do
      if sr>=s
        then write(F2,'студенты, у которых балл выше среднего: ', a.fam, sr);
        end;        
  
    end;