Запись - Есть информация о результатах зимней сессии

program _records;
 
const
 
 dat = 'students.dat';
 
type 
 
 TStudent   = record
  surname     : string[10];
  group       : byte;
  eval        : array [1..3] of 2..5;
 end;
 
var
 
 f            : file of TStudent;
 end_input    : boolean;
 choice       : char;
 Student      : TStudent;
 i,N          : integer;
 true_stud    : integer;
 Quality      : real;
 
procedure ReadInfo(var a_Student  :TStudent);
{        процедура ввода информации в структуру                 }
 var
  i : byte;
begin
writeln();
 with Student do 
    begin
      Write('фамилия: ':20);readln(surname);
      Write('группа: ':20);readln(group);
      writeln('оценки:':20);
      for i:=1 to 3 do 
        begin
         write('#':20,i,': ');readln(eval[i]);
        end;
    end;
writeln();
end;
 
procedure WriteInfo(const a_Student:TStudent);
{ процедура вывода структуры на экран        } 
 var
  i : byte;
begin
writeln();
 with student do 
    begin
      Writeln('фамилия: ':20,surname);
      Writeln('группа: ':20 ,group); 
    end;
writeln();
end;
 
function CheckProgress(const a_Student:TStudent):boolean;
{возвращает TRUE если студент успевает по всем предметам}
 var
  i:integer;
begin
 CheckProgress:=TRUE;
 for i:=1 to 3 do 
  if a_Student.eval[i]<3 
   then CheckProgress:=FALSE;
end;
 
BEGIN
 
{  input record  }
 Assign(f,dat);rewrite(f);
 repeat
  ReadInfo(Student);
  write(f,Student);
  repeat
    Write('next? (y/n): ');readln(choice);
  until choice in ['y','n'];
  case choice of 
    'y': end_input := FALSE;
    'n': end_input := TRUE;
  end;  
 until end_input;
 close(f);
 
{ output record }
 Assign(f,dat);reset(f);
 N:=filesize(f);
 Writeln('Успевающие студенты: ');
 for i:=1 to N do 
   begin
    read(f,Student);
    if CheckProgress(Student) then 
     begin
      write('#',i);
      WriteInfo(Student);
      inc(True_stud);
     end;
   end;
  Quality:=True_Stud/N*100;
  Write('Качество успеваемости: ',Quality:0:2,' %');
 close(f);
END.