[angvelem]

В "Blockread" указывают количество блоков для чтения

Но при этом устанавливается режим чтения по 8 байт.

Код:

Reset(f,sizeof(real)); 

ТС достаточно было изменить на

Код:

Reset(f, SizeOf(Integer)); 
t := 1;