[NumLock]

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

Нужно указывать, что размер каждой записи будет 1 байт. Иначе программа будет считывать по 128 байт за раз(по умолчанию).

да ну? читаем справку:

Reset procedure
Opens an existing file.
Delphi syntax:
procedure Reset(var F [: File; RecSize: Word ] );
F is a variable of any file type associated with an external file using AssignFile. RecSize is an optional expression, which can be specified only if F is an untyped file. If F is an untyped file, RecSize specifies the record size to be used in data transfers. If RecSize is omitted, a default record size of 128 bytes is assumed.

тут же все пучком: F: File of Byte; т.е. тип Byte.