Массив [0..0] ов байт Опции

[Билли Боб]

Когда указываю этот массив в своей процедуре, то возникает ошибка 200 на процедуре BlockRead,
а если указать масссив в основной программе, ошибки нет. Что не так?

[Билли Боб]

Вот так работает правильно:

var
   b: array [0..0] of byte;

procedure rd (name: string);
var
   f: file;
begin
   assign(f,name); reset(f,1);
   blockread (f, b,400);
   close(f);
end;

begin
   rd ('bitmap.bmp');
end.

А вот так выдает ошибку, теперь уже File not found:

procedure rd (name: string);
var
   b: array [0..0] of byte;
   f: file;
begin
   assign(f,name); reset(f,1);
   blockread (f, b,400);
   close(f);
end;

begin
   rd ('bitmap.bmp');
end.

Добавлено через 8 мин.
Еще заметил, что если указать меньше 260 записей, то ошибки не возникает.