Файлы и записи. Ошибка в программе

Program studenti;
type
 stud = record
 Fio: string [25];
 tur_1:byte;
 tur_2:byte;
 tur_3:byte;
 ball:byte;
end;
var
   F: Text; {Ранее созданный фаил, в котором хранится текстовая информация}
   F1: file of stud; {Фаил записей, который необходимо создать на базе текстового файла}
   p:stud; {Переменная типа Запись.}
 
Procedure CreateArchive; 
{Создание файла записей.}
var
  t1,t2,t3: byte;
begin
reset(F); {Открыть текстовый фаил для считывания информации.}
Rewrite(F1); {Открыть фаил записей для занесения информации.}
While not eof (F) do {Пока не достигнут конец файла, ...}
with p do
begin
{... считать текущую запись, }
     readln(F, Fio, tur_1, tur_2, tur_3);
{ если результат испытания по одному из туров менее 25 баллов,  }
{ обнулить вспомогательную переменную.}
     if tur_1 < 25 then T1:=0
     else t1:=tur_1;
     if tur_2 < 25 then T2:=0
     else t2:=tur_2;
     if tur_3 < 25 then T3:=0
     else t3:=tur_3;
{Вычислить среднее значение по итогам терех туров, }
{результат занести в соответствующие поля записи.}
     ball:=trunc((T1+T2+T3)/3);
     write (F1,P);
   end;
   close(f); {закрываем текстовый фаил}
   close(F1); {закрываем фаил записей}
   writeln ('File of record is created. For go on press ENTER');{}
   readln;
end; {конец процедуры CreateArchive}
 
Procedure WriteArchive;
{вывод информации на экран}
var
  i: integer;
begin
 reset(F1); {Открыть фаил записей для считывания информации}
 Writeln ('Results of Raiting Competitios');
 writeln('-------------------------------------------------------');
 writeln(':FIO            : 1_tur : 2_tur : 3_tur : Sredn Ball :');
 writeln('-------------------------------------------------------');
 while not eof (F1) do { Пока не достигнут конец файла, ... }
 begin
  read(F1,p); { считать запись и вывести ее на экран.}
  with p do
  writeln (':',FIO,':',tur_1:7,':', tur_2:7, ':', tur_3:7, ':', Ball:12, ':')
 end;
 writeln('-----------------------------------------------------');
 close(F1);
 writeln('For go on press ENTER');
 readln;
end; {Конец процедуры WriteArchive}
Procedure Sr_ball;
{удаление записей со срдним баллом, равным 0}
var
  n,k,i,j: integer;
  sr:byte;
Begin
  reset(F1);
  i:=0;
  n:=Filesize(F1) - 1; {Определить кол-во компонентов в файле записей}
  k:=0;
  while i<=n do {Пока не достигнут конец файла, }
  begin
    seek(f1,i); {установить указатель на текущую позицию}
    read(f1,p);
    with p do
       if ball=0 then {Если средн баллрен нулю,  то}
       begin {удалить запись сдвигом последующих компонентов} 
          for j:=i to n-1 do {от текущей записи и до конца файла.}
          begin
{Установить указатель на следующую запись.}
             seek(f1,j+1);
{Прочитать следующую запись.}
             read(f1,p);
{Установить указатель на текущую запись.}
             seek(f1,j);
{Переписать следующую запись на текущую}
             write(f1,p);
          end;
          seek(f1,n); {Установить указатель на последнюю запись и удалить ее.}
          truncate(f1);
          n:=n-1; {Уменьшить кол-во записей на единицу}
          k:=k+1;{Увеличить счетчик удаленных записей}
        end
{Если средний балл отличен от нуля, перейти к следующей записи.}
        else i:=i+1;
  end;
  close (f1); {Закрыть фаил}
  writeln('Proizoshlo ydalenie zapisei dlya abiturientov co Sr_ball < 25');
  writeln('Deleted ',k,' records');
  writeln('Ostalos ',n,' records');
  readln;
  writeln ('Dla prosmotra results ydalenia press ENTER');
end;{Конец процедуры Sr_Ball}
 
begin {Основная программа}
{Связь файловых переменных с файлами на диске}
Assign (F1,'e:\dipl\st.dat');
Assign (F,'e:\dipl\stud.txt');
createarchive; {Вызов процедуры создания файла записей}
writearchive; {Вызов процедуры вывода на печать информации}
sr_ball; {Вызов процедуры удаления записей из фаила}
writeArchive; {Вызов процедуры вывода на печать информации}
end. {Конец основной программы}