типизированные файлы

Uses
 CRT;
Type student=record
     num:integer;
     year:integer;
     numgr:string[15];
     famil:string[40];
end;
Var
 i,n,j:byte;
 a:student;
 filename:string[10];
 f:file of student;
 t,t2,t3:boolean;
 
procedure Chit;
begin
 while not eof(f) do
 begin
  read(f,a);
  writeln(a.num,' ',a.year,' ',a.numgr,' ',a.famil)
 end;
end;
 
procedure Zapis(n,m:byte);
begin
 t:=true;
 t2:=false;
 t3:=true;
 for i:=n to m do
 begin
  write('Введите номер: ');
  readln(a.num);
  if a.num=0 then
  begin
   t2:=true;
   break;
  end;
  write('Введите год поступления: ');
  readln(a.year);
  repeat
   write('ввод номера группы: ');
   readln(a.numgr);
   for j:=1 to length(a.numgr) do
    if not(UpCase(a.numgr[j]) in ['A'..'Z','0'..'9']) then
    begin
     t3:=false;
     break;
    end
    else t3:=true;
    if not(t3) then write('Недопустимые символы в номере группы.Повторите ');
  until t3;
  repeat
   write('ввод фамилии: ');
   readln(a.famil);
   for j:=1 to length(a.famil) do
    if UpCase(a.famil[j]) in ['A'..'Z'] then t:=true
    else
    begin
     t:=false;
     break;
    end;
    if not(t) then write('Недопустимые символы в фамилии.Повторите ');
  until t;
  seek(f,i);
  write(f,a);
 end;
end;
 
begin
 Clrscr;
 write('Введите имя файла (без расширения): ');
 readln(filename);
 Assign(f,'D:\'+filename+'.dat');
 {$I-}
 reset(f);
 {$I+}
 if IoResult=0 then
 begin
  Chit;
  writeln;
  n:=0;
  write('1. Добавить в файл записи? ');
  readln(n);
  if n=1 then
  begin
   n:=0;
   write('Введите кол-во записей: ');
   readln(n);
   zapis(filesize(f),(filesize(f)-1+n));
  end;
 end
 else
 begin
  writeln('Файл не найден.Зваполните файл.');
  writeln;
  write('Введите кол-во записей: ');
  readln(n);
  Zapis(0,n-1);
 end;
 Close(f);
 reset(f);
 if t2 then
 begin
  ClrScr;
  write('Введён нулевой номер!!!');
  writeln;
  chit;
 end;
 Close(f);
 readln;
end.