ошибка "I/O 998 Error"

[Stilet]

За ним разве успеешь?..

Ну самый правильный ответ то за тобой
Я только так... Разжевал слегка.

[legendary]

Сообщение от GunSmoker

файл в Program Files или аналогичной папке?

Про FileMode раньше не слышали?

Со зрениям проблемы?

[legendary]

Вроде розобрался, но мучит один вопрос: почему тут ошибка

var
  f1:file;
  buf1:array [0..10000]of byte;
  x1:longint;
begin
assignfile (f1,'c:\lol.exe');
filemode:=0;
reset(f1,1);
x1:=filesize(f1);
blockread(f1,buf1,x1);  //I\O 998
.....
closefile(f1);
end;

а если

var
  f1:file;
  buf1:array [0..10000]of byte;
begin
assignfile (f1,'c:\lol.exe');
filemode:=0;
reset(f1,1);
while not eof(f) do
begin
blockread(f1,buf1,1); 
.....
closefile(f1);
end;

то все пучком. почему нельзя копирнуть прогу одним блоком?

[GunSmoker]

А что, размер файла разве 10001 байт?

Вы просите его читать x1 байт в массив из 10001 байт (меньше 10 Кб).