Почему вылетает ошибка Read beyond end of file?

[KoBRaAndrey]

Почему вылетает ошибка Read beyond end of file?

var
C:byte;
N:Integer;
f:file;
begin
AssignFile(F,'C:\Новая папка\so_ac130_co_hunted');
Reset(F,1);
C:=0;
N:=0;
While C<> $78+$DA do
Begin
 BlockRead(F,C,1);
 Inc(N);
End;
CloseFile(F);
showmessage(inttostr(n));
end;

Вы перепутали - это уже не тема про английский Название подправил...

[russian-stalker]

а где проверка, что файл уже не прочитан?
Да и искать у вас здесь будет $152, а такого не будет естественно.
Я бы написал так:

var
 b:byte;
 flag:boolean;
 ...
begin
...
while not EOF(F) do
begin 
 read(f,b);
 if flag and (b=$DA) then
  inc(n);
 if b=$78 then
  flag:=true else
  flag:=false;
end;

[mihali4]

Смею предположить, что из-за этого:

While C<> $78+$DA do

Вы уверены, что значение С когда-то будет именно таким ?

[KoBRaAndrey]

Вы уверены, что значение С когда-то будет именно таким ?

Ну мне нужно найти позицию $78$DA

[Alex Cones]

Я же Вaм уже писал, что используйте SmallInt и размер в 2 байата в Reset