Запись многомерного массива в файл с сохранением вида таблицы

Begin
     AssignFile(F,'Array.txt');
     Rewrite(F);
      for i:=0 to n-1 do
      for j:=0 to m-1 do
      Write(F,Arr[i,j],'; ');
      Writeln(F);
      CloseFile(F);
End;

procedure TForm1.Button1Click(Sender: TObject);
var
tx:textfile;
i,j:integer;
a:array [1..10,1..10] of integer;
begin
 randomize;
 AssignFile(tx,'C:\Documents and Settings\Студент\Мои документы\Files.txt');
 Rewrite(tx);
  for i:=1 to 10 do
   begin
   for j:=1 to 10 do
    begin
     a[i,j]:=Random(100);
     Write(tx,a[i,j],';');
    end;
    writeln(tx);
    end;
    closefile(tx);
     end;
end.

      for i:=0 to n-1 do
      begin // <--- Раз 
         for j:=0 to m-1 do
         Write(F,Arr[i,j],'; ');
         Writeln(F);
      end; // <--- Два

type
   TIntMatrix = array of array of integer;
 
procedure SaveArr(fn : string; arr : TIntMatrix);
var F : TextFile;
begin
   AssignFile(F, fn);
   Rewrite(F);
   for i := Low(arr) to High(arr) do
   begin
      for j := Low(arr[i]) to High(arr[i]) do
         write(F, arr[i, j]:8);
      writeln(F);
   end;
   CloseFile(F);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
   if (Sender as TCheckBox).Checked then
      SaveArr('F:\testmx.txt', arr);
end;