Отрицательная часть динамического массива

      Randomize;
  for i:=1 to n do
  for j:=1 to n do begin
                                                                  mas[i,j]:=Random       (n+n)-n;\\вот так и пишет  иотриц значения
  StringGrid1.Cells[i,j]:=IntToStr(mas[i,j]); end;

      Randomize;
  for i:=1 to n do
  for j:=1 to n do begin
                                                                  mas[i,j]:=Random       (n+n)-n;\\вот так и пишет  иотриц значения
  StringGrid1.Cells[i,j]:=IntToStr(mas[i,j]); end;

//Для нечётных N:
begin
  IZero := N div 2;
  for j := -(N div 2) to (N div 2) do begin
    Arr[IZero + j] := ...;
  end;

//Для чётных и нечётных N:
begin
  IZero := N div 2;
  for j := -(N div 2) to (N - 1) - (N div 2) do begin
    Arr[IZero + j] := ...;
  end;

var a:array of array of integer;
...
begin
SetLength( a, 20, 30 );
...
Finalize( a );//получается, обязательно нужно вызвать?
end;

type FOO = array of byte;
var a:array of FOO;
    b:FOO;
 
SetLength(a, 16, 16);
b := a[2];
a[1][3] := a[2][5];
Finalize(a);
b[2] := b[3];

var
  a, b:array of array of byte;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    SetLength(a, 8192, 8192);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    b := a;
    Finalize(a);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
    Finalize(b);
end;

var a:array of array of integer;
...
begin
  SetLength( a, 20, 30 );
  ...
  //Finalize( a ); //Это действие необзязательное в данном случае.
end;

type
var
  a : array of String;
  b : array of Variant;
begin
  SetLength(a, 10);
  SetLength(b, 10);
  ...
  //В данном случае требуется вызов Finalize(), т. к. String и Variant являются динамическими типами.
  Finalize(a);
  Finalize(b);

type
  TRec = record
    f1 : Integer;
    f2 : Double;
  end;
  TPRec = ^TRec;
var
  a : array of TPRec;
  i : Integer;
begin
  SetLength(a, 10);
  ...
  New(a[0]);
  a[0].f1 := 1;
  a[0].f2 := 1.1;
  ...
  for i := 0 to High(a) do Dispose(a[i]);
  //В данном случае Finalize() можно не вызывать.
  //Finalize(a);