var f: File of Integer; i: Byte; begin AssignFile(f, '1.txt'); Reset(f); Read(f, i); CloseFile(f); end;