Создать динамический массив и найти сумму главной и побочной диагонали

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  const n=7;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
a:array of array of integer;
i,j:integer;
s1,s2:integer;
begin
s1:=0;
 s2:=0;
setlength(a,strtoint(edit1.Text),strtoint(edit2.Text));
stringgrid1.ColCount := strtoint(edit1.Text);
stringgrid1.RowCount := strtoint(edit2.Text);
  for i:=0 to strtoint(edit1.Text)-1  do
  for j:=0 to strtoint(edit2.Text)-1 do
          begin
          a[i,j]:=random(10);
          stringgrid1.Cells [i,j]:=inttostr(a[i,j]);
          s1:=s1+a[i,i];
          s2:=s2+a[i,n-j+1];
          end;
 
 
label1.Caption:=inttostr(s1);
 label2.Caption:=inttostr(s2);
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
a:array of array of integer;
i,j,n:integer;
s1,s2:integer;
begin
s1:=0;
s2:=0;
n := strtoint(edit1.Text);
setlength(a,n,n);
stringgrid1.ColCount := n;
stringgrid1.RowCount := n;
Randomize;
  for i:=0 to n-1  do
  for j:=0 to n-1 do
          begin
          a[i,j]:=random(10);
          stringgrid1.Cells [i,j]:=inttostr(a[i,j]);
          if i = j then s1:=s1+a[i,j];
          if j = (n - 1 - i) then s2:=s2+a[i, j];
          end;
 
label1.Caption:=inttostr(s1);
label2.Caption:=inttostr(s2);
end;