[Edinora]

Есть динамический двухмерный массив, его надо записать и счтитать с типизированного файла.
Запись:

Код:

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

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

И чтение:

Код:

procedure Load2DArray(FileName:String);
var
  F:File of String[6];
  I,J:Integer;
begin
  Assignfile(F,FileName);
  Rewrite(F);  
               
  Seek(F,0);

  for I := 0 to High(TAr) do
  begin
    for J := 0 to  High(TAr) do
      begin
         Read(F, TbArray[i,j]); // Здесь не компилируется - пишет несовместимость типов. Хотя TbArray[i,j]:String[6]; тоже.
       end;
  end;
  CloseFile(F);
 end;

Подскажите в чем проблема?