Сохранение и загрузка динамического массива.

[SkAndrew]

Добрый день!

Сохранение и загрузка динамического массива. Массив представляет собой пять матриц 24х24. Я делаю так:

type
  TExDynaMatrix = array of array of array of Integer;

private
    // Load & save
    procedure LoadDynArray(AFileName : WideString; DynArr : TExDynaMatrix); // загрузка
    procedure SaveDynArray(AFileName : WideString; DynArr : TExDynaMatrix); // сохранение

procedure TMainForm.LoadDynArray(AFileName : WideString; DynArr : TExDynaMatrix);
var
  // Counters
  i, j : Integer;
  // Read classes
  RStr : TFileStream;
  Reader : TReader;
  // Metrics
  ARow, ACol : Integer;
begin
  RStr := TFileStream.Create(AFileName+'.dat', fmOpenRead, fmShareExclusive);
  try
    Reader := TReader.Create(RStr, 8096);
    try
      ARow := Reader.ReadInteger;
      SetLength(DynArr, ARow);
      ACol := Reader.ReadInteger;
      for i := 0 to ARow-1 do
      begin
        SetLength(DynArr[i], ACol, ACol);
        for j := 0 to ACol-1 do
          Reader.Read(DynArr[i, j], Length(DynArr[i])*SizeOf(Integer));
      end;
    finally
      FreeAndNil(Reader);
    end;
  finally
    FreeAndNil(RStr);
  end;
  ProcessOutput;
end;

procedure TMainForm.SaveDynArray(AFileName : WideString; DynArr : TExDynaMatrix);
var
  // Counters
  i, j : Integer;
  // Read classes
  WStr : TFileStream;
  Writer : TWriter;
begin
  WStr := TFileStream.Create(AFileName+'.dat', fmCreate, fmShareExclusive);
  try
    Writer := TWriter.Create(WStr, 8096);
    try
      Writer.WriteInteger(Length(DynArr));
      for i := 0 to Length(DynArr)-1 do
      begin
        Writer.WriteInteger(Length(DynArr[i]));
        for j := 0 to Length(DynArr[i])-1 do
          Writer.Write(DynArr[i, j], Length(DynArr[i])*SizeOf(Integer));
      end;
    finally
      FreeAndNil(Writer);
    end;
  finally
    FreeAndNil(WStr);
  end;
end;

Код не работает, подскажите где в процедурах сохранения и загрузки ошибки.

Спасибо