[Alegun]

Извините за назойливость, а вот так работать случайно не будет?

Код:

procedure Save2DArray(FileName: String);
 var
  F: file of String[6];
  tmp: string[6];
  I, J, num: Integer;
begin
   Assignfile(F, FileName);
   Rewrite(F);
   Seek(F, 0);

   for I := 0 to High(TAr) do
    for J := 0 to High(TAr) do
       begin
        tmp:= TbArray[i, j];
        Write(F, tmp);
       end;
  CloseFile(F);
end;

procedure Load2DArray(FileName:String);
var
  F: File of String[6];
  tmp: string[6];
  I, J: Integer;
begin
  if FileExists(FileName) then
  begin
  Assignfile(F, FileName);
  Reset(F);
  for I:= 0 to High(TAr) do
   for J:= 0 to High(TAr) do
    begin
     Read(F, tmp);
     TbArray[i, j]:= tmp;
    end;
  CloseFile(F);
  end;
 end;

Проверить сам не могу - нет над чем издеваться :-).