Ещё запись в файл + считывание

[s-t-r-i-k-e-r]

Есть 6 массивов типа:
array[1..16] of byte;
Как реализовать их запись в файл и грамотную загрузку обратно.
Т.е чтобы без ошибок.

[s-t-r-i-k-e-r]

Хотя бы считывание из файла, запись я сделаю

[alexBlack]

В Delphi ?

var A:array[1..16] of byte;
    F:TFileStream;
begin
    try
        F := TFileStream.Create(fileName, fmCreate);
        try
           F.Write(A, sizeOf(A));
        finally
           F.free;
        end;
    except
        on E:Exception do ShowMessage(E.Message);
    end;

[Serge_Bliznykov]

запись массива:

var
  MyArray : array[1..16] of byte;
  f : file of byte;
begin
  Assign(f,'Data.arr');
  Rewrite(f); {создаём файл - если такой есть, будет стёрт и перезаписан!}
  BlockWrite(f, MyArray, SizeOf(MyArray);
  ...

чтение:
вместо Rewrite(f) пишем Reset(f);
и вместо BlockWrite пишем BlockRead