Вывести список абитуриентов, средний балл которых выше среднего балла по университету

 uses crt;
 const  line='-------------------------------------------------------------------';
        sha1='|          Фамилия, Имя, Отчество         |   Баллы на экзаменах  |';
        sha2='|                                         |   1   |   2   |   3   |';
 type abiturient=record;
      fio: string[40];
      b1: byte;
      b2: byte;
      b3: byte;
      end;
 
 var a: abiturient;
     f: file of abiturient;
     g: text;
     i,n,r,k: integer;
     sr: real;
 
begin
assign(f, 'C:\abiturient.dat');
assign(g, 'C:\abiturient.txt');
writeln('1 - внести данные в файл');
writeln('2 - считать данные из ранее сохраненного файла');
readln(r);
if r=1 then
   begin
   rewrite(f);
   write('Количество абитуриентов: ');
   readln(n);
   for i:=1 to n do
       with a do
            begin
            write('ФИО ',i,' абитуриента: '); readln(fio);
            write('Баллы по 3 предметам: ');
            read(b1); read(b2); read(b3);
            writeln;
            write(f,a);
            end;
   close(f);
   writeln('Данные занесены в файл');
   end;
sr:=0; k:=0;
clrscr;
writeln('Абитуриенты, средний балл которых выше среднего балла по университету');
writeln(line);
writeln(sha1);
writeln(sha2);
rewrite(g);
reset(f);
writeln(g,'Абитуриенты, средний балл которых выше среднего балла по университету');
writeln(g,line);
writeln(g,sha1);
writeln(g,sha2);
while not eof(f) do
      begin
      inc(k);
      read(f,a);
      with a do
           begin
           if (b1=100) and (b2=100) and (b3=100) then
              begin
              writeln(line);
              writeln('|',fio:40,' |',b1:5,'|':3,b2:5,'|':3,b3:5,'|':3);
              writeln(g,line);
              writeln(g,'|',fio:40,' |',b1:5,'|':3,b2:5,'|':3,b3:5,'|':3);
              end;
           sr:=sr+((b1+b2+b3)/3);
           end;
      end;
sr:=sr/k;
close(f);
reset(f);
close(g);
append(g);
while not eof(f) do
      begin
      read(f,a);
      with a do
           begin
           if (b1<100) and (b2<100) and (b3<100)
              and ((b1+b2+b3)/3>sr) then
              begin
              writeln(line);
              writeln('|',fio:40,' |',b1:5,'|':3,b2:5,'|':3,b3:5,'|':3);
              writeln(g,line);
              writeln(g,'|',fio:40,' |',b1:5,'|':3,b2:5,'|':3,b3:5,'|':3);
              end;
           end;
      end;
writeln(line);
writeln('Средний балл по университету: ',sr:0:0);
close (f);
close(g);
readln;
end.