Типизированные файлы: определить среднюю арифметическую оценку группы

program m1;
uses
  crt;
type
  d_std = record
  num : byte;
  famil : string[15];
  grup, ocen : word;
  end;
  ctudt = file of d_std;  
var
  x : word;
  y : real;
procedure CrFl(s:string);
var f : ctudt; st : string[2]; ct : d_std; i : byte;
begin
  s := s + '.dat';
  assign(f,s);
  rewrite(f);
  i := 0;
  repeat
   inc(i);
   ct.num := i;
   write('Фамилия : '); readln(ct.famil);
   write('Группа : '); readln(ct.grup);
   write('Оценки по трем предметам : '); readln(ct.ocen);
   write('продолжить да - y/нет - n : '); readln(st);
   write(f,ct);
  until st='n';
  close(f);
end;
function SredOc(x:word):real;
var f : ctudt; a : d_std; s : real; i : word;
begin
  assign(f,'CTUD.dat');
  reset(f);
  s := 0;
  i := 0;
  while not eof(f) do
    begin
      read(f,a);
      if a.grup=x then begin 
       s := s + (a.ocen mod 10 + a.ocen div 10 mod 10 + a.ocen div 100)/3;
       inc(i);
       end;
    end;
  SredOc := s/i;    
  close(f);
end;
procedure DelSt(x:word;y:real);
var f,g : ctudt; a : d_std;
begin
  assign(f,'CTUD.dat');
  assign(g,'TEMP.dat');
  reset(f);
  rewrite(g);
  while not eof(f) do
   begin
    read(f,a);
    if (a.grup<>x) or ((a.grup=x) and (((a.ocen mod 10 + a.ocen div 10 mod 10 + a.ocen div 100)/3) > y)) then
    write(g,a);
   end;
  close(f);
  close(g);
  erase(f);
  rename(g,'CTUD.dat');
end;
procedure OutputF();
var f : ctudt; a : d_std;
begin
  assign(f,'CTUD.dat');
  reset(f);
  while not eof(f) do
   begin
    read(f,a);
    writeln(a.num:3,a.famil:15,a.grup:5,a.ocen:5);
   end;
  close(f);  
end;
begin
  clrscr;
  CrFl('CTUD');
  clrscr;
  OutputF();
  write('Номер группы, средн. арифм. оценок которых надо определить : '); readln(x);
  y := SredOc(x);
  writeln('Cредн. арифм. оценок группы ',x,' : ',y:5:3);
  DelSt(x,y);
  writeln('Удалены данные о студентах, у которых средн. арифм. оценка меньше средн. арифм. оценки группы ',x);
  OutputF();
  readln;
end.