тип данных record. Работа с файлами

Uses CRT;
const M=15;
type T=record
 Fio :string[10];
 Ocn :array[1..3] of integer;
 end;
var
Spisok :T;
Kol :integer;
N :integer;
Bal :real;
I:integer;
Begin
clrscr;
Kol:=0;
Write('kol abit :');
readln(N);
For i:=1 to N do
with Spisok do
begin
write('FIO :');readln(Fio);
write('mat :');readln(Ocn[1]);
write('phys :');readln(Ocn[2]);
write('russian :');readln(Ocn[3]);
if (Ocn[1]>2) and (Ocn[2]>2) and (Ocn[3]>2) then begin kol:=kol+1;
Writeln('abiturient ',Fio:10,' ozenki ',Ocn[1],'  ',Ocn[2],'  ',Ocn[3]);end;
writeln;
end;
if kol=0 then writeln('ih net');
readln;
end.

uses crt;
type abit=record
          fam:string[20];
          mat,fiz,rus:2..5;
          end;
     fail=file of abit;
var f,g,h,t:fail;
    a:abit;
    n,i,j:byte;
begin
clrscr;
assign(f,'matem');
rewrite(f);
assign(g,'fizika');
rewrite(g);
assign(h,'russk');
rewrite(h);
assign(t,'itog');
rewrite(t);
write('Введите начальное число абитуриентов n=');
readln(n);
writeln('Введите фамилии и баллы по математике от 2 до 5:');
for i:=1 to n do
 begin
  writeln('Абитуриент ',i);
  with a do
   begin
    write(' фамилия: ');readln(fam);
    repeat
     write(' балл по математике: ');
     readln(mat);
    until mat in [2..5];
    write(f,a);
   end;
 end;
close(f);
reset(f);
clrscr;
writeln('Введите баллы по физике:');
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    if mat>2 then
     begin
      repeat
      write(fam,' балл=');
      readln(fiz);
      until fiz in [2..5];
      write(g,a);
     end;
   end;
 end;
close(f);
close(g);
reset(g);
clrscr;
writeln('Введите баллы по русскому:');
while not eof(g) do
 begin
  read(g,a);
  with a do
   begin
    if fiz>2 then
     begin
      repeat
      write(fam,' балл=');
      readln(rus);
      until rus ib [2..5];
      write(h,a);
     end;
   end;
 end;
close(g);
clrscr;
close(h);
reset(h);
while not eof(h) do
 begin
  read(h,a);
  if a.rus>2 then write(t,a);
 end;
close(h);
close(t);
reset(t);
if filesize(t)=0 then
write('Прошедших конкурс нет!')
else
 begin
  writeln('Результаты экзаменов для прошедших конкурс');
  writeln('-------------------------------------------');
  writeln('|    Фамилия    |Математика|Физика|Русский|');
  writeln('-------------------------------------------');
  while not eof(t) do
   begin
    read(t,a);
    with a do
     begin
      gotoXY(1,whereY);write('| ',fam);
      gotoXY(17,whereY);write('|',mat:6);
      gotoXY(28,whereY);write('|',fiz:4);
      gotoXY(35,whereY);write('|',rus:5);
      gotoXY(43,whereY);writeln('|');
     end;
   end;
  writeln('-------------------------------------------');
 end;
close(t);
readln
end.