[angvelem]

Ух тяжко:

Код:

type
  TTempField= record
    Mas: array[1..8, 1..8] of byte;
    FieldOwner: array[1..8, 1..8] of byte;
    side: byte;
    players: byte;
    count: integer;
    protocol: string;
    AbsLose: array[1..4] of boolean;
  end;

var
  TempField : TTempField;
...
читаем
...
var
  FileIn : File of TTempField;
begin
  AssignFile(FileIn, 'MyFile');
  Reset(FileIn);
  Read(FileIn, TempField]);
  CloseFile(FileIn);
end;
...
пишем
...
var
  FileOut : File of TTempField;
begin
  AssignFile(FileOut, 'MyFile');
  Rewrite(FileOut);
  Write(FileOut, TempField]);
  CloseFile(FileOut);
end;