Сформировать двумерный массив чисел и обнулить все элементы, кроме элементов побочной диагонали

procedure TForm1.Button2Click(Sender: TObject);
var i, j : integer;
begin
 for i := 0 to StringGrid1.RowCount - 1 do
  for j := 0 to StringGrid1.ColCount - 1 do
   if j <> StringGrid1.ColCount - 1 - i then StringGrid1.Cells[j, i] := '0';
end;

var
  Form1: TForm1;
  a:array of array of integer;
  n:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим осноные параметры таблиц
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  scrollbars:=ssBoth;
  defaultcolwidth:=30;
  options:=options+[goEditing];
 end;
with StringGrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  scrollbars:=ssBoth;
  defaultcolwidth:=30;
 end;
Button1.Enabled:=true; //1 кнопку включим
Button2.Enabled:=false; //2 выключим
end;
//создание матрицы
procedure TForm1.Button1Click(Sender: TObject);
var c:integer;
begin
//проверим ввод размера
val(Edit1.Text,n,c);
if(c<>0)or(n<1)then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
setlength(a,n,n);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
StringGrid2.ColCount:=n;
StringGrid2.RowCount:=n;
ShowMessage('Введите целые числа в таблицу 1');
Button1.Enabled:=false;//1 выключим
Button2.Enabled:=true; //2 включим
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k:integer;
    p:real;
begin
k:=0;
i:=0;
while(i<n)and(k=0)do
 begin
  j:=0;
  while(j<n)and(k=0) do
   begin
    val(StringGrid1.Cells[i,0],a[i,j],k);
    if k<>0 then ShowMessage('Не все числа введены верно, поправьте')
    else inc(j)
   end;
  if k=0 then inc(i)
 end;
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  if j<>n-i-1 then a[i,j]:=0;
  StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
 end;
 
end;