Вывести часть массива, расположенную выше главной диагонали

var
  Form1: TForm1;
  a:array of array of integer;
  n:integer;
implementation
 
{$R *.dfm}
 //создание матрицы
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
n:=strtoint(Edit1.Text);
setlength(a,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=random(100);
  StringGrid1.Cells[j,i]:=inttostr(a[i,j]);
 end; 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
//вывод ниже гл. диагонали
for i:=1 to n-1 do
for j:=0 to i-1 do
StringGrid2.Cells[j,i]:=inttostr(a[i,j]);
//вывод выше гл. диагонали
for i:=0 to n-2 do
for j:=i+1 to n-1 do
StringGrid3.Cells[j,i]:=inttostr(a[i,j]);
end;

//âûâîä âûøå ãë. äèàãîíàëè
for i:=0 to n-2 do
for j:=i+1 to n-1 do
StringGrid2.Cells[j,i]:=inttostr(a[i,j]);
//âûâîä íèæå ïá. äèàãîíàëè
for i:=1 to n-1 do
for j:=n-i to n-1 do
StringGrid3.Cells[j,i]:=inttostr(a[i,j]);