Создание многомерного массива

procedure ListAllIntegers(const AnArray: array of Integer);
var
  I: Integer;
begin
  for I := Low(AnArray) to High(AnArray) do
   WriteLn('Integer at ', I, ' is ', AnArray[I]);
end;

Var
  Arr : Array Of Array Of Integer;
 
n:=SpinEdit1.Value; 
m:=SpinEdit2.Value;
SetLength(Arr,n,m); //Определили размерность Arr = Array[0..n-1,0..m-1]
....поработали
Finalize(Arr); //Освободили память массива

For i:=0 To n-1 Do
For j:=0 To m-1 Do
Arr[i,j]:=Random(100)-50; //Заполнение...

SetLength(Arr,n,m)

SetLength(Arr,n+1,m+1)

begin
 
n:=SpinEdit1.Value; // Количество строк массива;
m:=SpinEdit2.Value; // Количество столбцов массива;
SetLength(Arr,n,m); //Определение размерности Arr = Array[0..n-1,0..m-1];
  Begin
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  Arr[i,j]:=Random(1000000);
  End;
 
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
 
Begin
StringGrid1.cells[0,0]:='№';
StringGrid1.cells[1,0]:='X';
StringGrid1.cells[2,0]:='Y';
 
for i:=1 to n do //Цикл по строкам;
for j:=1 to m do //Цикл по столбцам;
StringGrid1.Cells[j,i]:=IntToStr(Arr[i,j]);
End;

Var
  c,c1 : Char;
  b : Boolean;
begin
  n:=SpinEdit1.Value; // Количество строк массива;
  m:=SpinEdit2.Value; // Количество столбцов массива;
  SetLength(Arr,n,m); //Определение размерности Arr = Array[0..n-1,0..m-1];
 
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  Arr[i,j]:=Random(1000000);
 
  StringGrid1.RowCount:=n+1; // +1 - чтобы фиксированные не считать
  StringGrid1.ColCount:=m+1;
 
  StringGrid1.cells[0,0]:='№';
  StringGrid1.cells[1,0]:='X';
  StringGrid1.cells[2,0]:='Y';
  //Заполним фиксированную строку...
  c:='a'; c1:='a'; b:=False;
  For i:=1 To StringGrid1.ColCount-1 Do
  Begin
    StringGrid1.cells[i,0]:=c;
    If b Then
    Begin
       StringGrid1.cells[i,0]:=c+c1;
       c1:=Succ(c1);
       If c1>'z' Then
       Begin
          c1:='a';
          c:=Succ(c);
       End;
    End Else
    Begin
      c:=Succ(c);
      If c>'z' Then 
      Begin
         b:=True;
         c:='a';
      End;
    End;
  End;
  //Заполним фиксированный столбец...
  For i:=1 To StringGrid1.RowCount-1 Do
  StringGrid1.cells[0,i]:=IntToStr(i);
 
  for i:=1 to n do //Цикл по строкам;
  for j:=1 to m do //Цикл по столбцам;
  StringGrid1.Cells[j,i]:=IntToStr(Arr[i-1,j-1]);
End;

procedure Finalize(var Buffer):
procedure Finalize(var Buffer; Count: Integer);

Finalize(mas);

Begin
for i:=1 to n+1 do //Цикл по строкам;
for j:=1 to m+1 do //Цикл по столбцам;
StringGrid1.Cells[j,i]:=IntToStr(Arr[i,j]);
end;

procedure TForm1.Button1Click(Sender: TObject);
 
var
  Arr:array of array of integer;
  i,j,n,m, num:integer;
  c,c1 : Char;
  b : Boolean;
begin
 
n:=SpinEdit1.Value; // Количество строк массива;
m:=SpinEdit2.Value; // Количество столбцов массива;
SetLength(Arr,n,m); //Определение размерности Arr = Array[0..n-1,0..m-1];
  Begin
  for i:=0 to n-1 do
  for j:=0 to m-1 do
  Arr[i,j]:=Random(1000000);
  End;
 
StringGrid1.RowCount:=n+1; //+1 Пропуск фиксированных ячеек строк;
StringGrid1.ColCount:=m+1; //+1 Пропуск фиксированных ячеек столбцов;
 
//Заполнение фиксированной строки;
c:='a'; c1:='a'; b:=False;
  For i:=1 To StringGrid1.ColCount-1 Do
  Begin
    StringGrid1.cells[i,0]:=c;
    If b Then
    Begin
       StringGrid1.cells[i,0]:=c+c1;
       c1:=Succ(c1);
       If c1>'z' Then
       Begin
          c1:='a';
          c:=Succ(c);
       End;
    End Else
    Begin
      c:=Succ(c);
      If c>'z' Then
      Begin
         b:=True;
         c:='a';
      End;
    End;
  End;
 
 
//Заполнение фиксированного столбца;
Begin
For i:=1 To StringGrid1.RowCount-1 Do
StringGrid1.cells[0,i]:=IntToStr(i);
end;
 
Begin
for i:=1 to n+1 do //Цикл по строкам;
for j:=1 to m+1 do //Цикл по столбцам;
StringGrid1.Cells[j,i]:=IntToStr(Arr[i,j]);
end;
end;
end.

  for i:=1 to n do //Цикл по строкам;
  for j:=1 to m do //Цикл по столбцам;
  StringGrid1.Cells[j,i]:=IntToStr(Arr[i-1,j-1]);
  Finalize(Arr); //И в конце делаем освобождение памяти

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;