Таблица рекордов Опции

[Rocket]

Вот две процедуры:

procedure ShowRecord;
type
 rec=record
  nikename:string[10];
  points:longint;
     end;

var f:file of rec;
     rec_:array[1..6] of rec;
      n,y:integer;
       st:string;
begin
 settextstyle(4,0,2);
  setcolor(9);
 y:=0;
 assign(f,'Records.dat');
{$I-}
 Reset(f);
{$I+}
seek(f,0);
 for n:=1 to 5 do
  begin
   read(f,rec_[n]);
   outtextxy(150,150+y,rec_[n].nikename);
   str(rec_[n].points,st);
   outtextxy(200,150+y,st);
   y:=20;
  end;
 end;

procedure Records;
type
 rec=record
  nikename:string[10];
  points:longint;
     end;
     
var f:file of rec;
     rec_:array[1..6] of rec;
      n:integer;
      extra1:longint; extra2:string;
     
begin
 n:=0;
assign(f,'Records.dat');
{$I-}
Reset(f);
{$I+}
n:=filesize(f);
seek(f,n);
n:=n+1;
outtextxy(250,250,'Please,enter the nikename.');
readln(rec_[n].nikename);
rec_[n].points:=time;

if n=6 then

 begin
 
  for n:=1 to 6 do
   begin
   read(f,rec_[n]);
   read(f,rec_[n+1]);
   end;
   if rec_[n].points<rec_[n+1].points then
    begin
    seek(f,n);
    read(f,rec_[n]);
    extra1:=rec_[n].points;
    rec_[n].points:=rec_[n+1].points;
    rec_[n+1].points :=extra1;
    extra2:=rec_[n].nikename;
    rec_[n].nikename:=rec_[n+1].nikename;
    rec_[n+1].nikename:=extra2;
    write(f,rec_[n]);
   end;
   
   seek(f,6);
   read(f,rec_[6]);
   seek(f,5);
   write(f,rec_[6]);
   truncate(f);
   
  end
  
 else write(f,rec_[n]);
 end;

При выводе пишет: диск рид эррор! В чём ошибка? Подскажите ,пожалуйста!