Delphi. Матрицы. Дана квадратная матрица,вычислить сумму элементов, расположенных над главной диагональю

[Tony Hudson]

Добрый вечер. Дана квадратная матрица,вычислить сумму элементов, расположенных над главной диагональю. Вот собственно код.

procedure TForm1.btn1Click(Sender: TObject);

var
 n,i,j,l,summa:integer;
    a:array[1..20,1..20]of integer;
begin
 n:=StrToInt(edt1.Text);
 for i:=1 to n do
begin
for j:=1 to n do
   begin
    a[i,j]:=random(100);
   strngrd1.Cells[i,j]:=IntToStr(a[i,j]);
   end;
end;
summa:=0;
   for i := 1 to n do
    for j := i + 1 to n do
       summa := summa + a[i,j];
       lbl1.Caption:=('Сумма' + ' '+ IntToStr(summa));
end;

end.

Не подскажите, как найти сумму нижней диагонали?

[newerow1989]

for i := 1 to n do
 for j := 1 to i - 1 do

Как-то так

[Stilet]

Как-то так

расположенных над главной диагональю.

Т.е.

for i := 1 to n do
 for j := i+1 to n do