Ошибка: Disk read error

[freewix]

Уважаемы программисты, подскажите кто знает как бороться с ошибкой

100 Disk read error (Ошибка чтения с диска).

Генерируется процедурой READ в типизированном файле в случае, если Вы пытаетесь осуществить считывание из полностью прочитанного файла.

program lab3;
uses crt;
type fileint = file of integer;

var
 c,d,f,t:fileint;
 g,k,z,x:word;
 j,i:integer;

procedure copy (var a,b:fileint);
 var i:integer;
 begin
  seek (a,0);
 while not EOF(a)=false do
  begin
   read (a,i);
   write (b,i);
   writeln (i);
  end;
 end;

begin
clrscr;
assign (c, 'c:\c.dat');
assign (d, 'c:\d.dat');
assign (t, 'c:\t.dat');
reset(c);
reset(d);
{k:= filesize (c);
x:= filesize (d);
writeln ('количество элементов файла "с" = ',k+1,' элементов  "d" = ',x+1,' элементов');
z:=k+1+x+1;
writeln ('общее число элементов =',z);}
rewrite (t);
copy(c,t);
copy(d,t);
close(c);
close(d);
readln;
end.

Еще нашел что, если значение EOF(c) равно TRUE, то обращение к процедуре READ не допустимо, т.е. приведет к ошибке
но в случае моей программы цикл в процедуре должен прекратить работу, как только будет достигнут конец файла...
в общем кто знает помогите разобраться или может есть какой либо более простой способ как элементы 2х файлов записать в 1 (надо еще собрать компоненты в упорядоченном виде, но тут даже объединить не удается)