Ввести из текстового файла данные для массива структур, записать их в типизированный файл и выполнить действия в соответствии со своим вариантом

program _records;
 
const
 
 N          = 50;
 fout       = 'Students.dat';
 fin        = 'input.txt';
 
type 
 
 TStudent   = record
  
  name      : string[15];
  group     : byte;
  scores    : array [1..5] of 2..5;
 
 end;
 
 Sdata      = File of TStudent;
 
var
 
 Students   : array [1..N] of TStudent;  
 count,i    : byte;
 fi         : text;
 fo         : SData;
 true_std   : boolean;
 
function GetMidScore(const Std : TStudent):real;
{ возвращает средний балл студента}
 var 
  sum       : real;
  i         : byte;
begin
 sum:=0;
 for i:=1 to 5 do sum:=sum+std.scores[i];
 GetMidScore:=Sum/5;
end;
 
procedure OutInfo(const Std : TStudent);
{ выводит структуру на экран }
var
 i          : byte;
begin
writeln();
 With std do 
  begin
   writeln('name: ',name);
   writeln('group: ',group);
   writeln('scores: ');
   for i:=1 to 5 do write(scores[i],'')
  end;
writeln();
end;
 
BEGIN
{input}
 assign(fi,fin);reset(fi);
 count:=0;
 while not eof(fi) do 
    begin
     inc(count);
     with Students[count] do 
      begin
       readln(fi,name);
       readln(fi,group);
       for i:=1 to 5 do read(fi,scores[i],' ');
      end;
     readln(fi);
    end;
 close(fi);
 
{process & output}
 true_std:=false;
 for i:=1 to count do 
    if GetMidScore(Students[i]) > 4 then begin
                                          OutInfo(Students[i]);
                                          true_std:=true;
                                         end;
 if not true_std then writeln(' no true students! ');
 
 Assign(fo,fout);rewrite(fo);
 for i:=1 to count do write(fo,Students[i]);
 close(fo);
 
END.