Задача на матрицу.

[Fest]

Задачка:
В квадратной матрице K(n,n) подсчитать сумму значений элементов верхнего и нижнего треугольника и, отдельно, левого и правого треугольника. Если первая сумма больше второй, то перевернуть матрицу на 90 градусов. Иначе обнулить элементы по диагонали.

Задачка вроде не сложная, но до меня что-то не очень доходит как подсчитать эти треугольники... Напишите пожалуйста программу, попытаюсь разобраться. Здесь нужно подсчитать элементы, которые находятся вне диагоналей. Буду крайне благодарен.

[Abbatik]

uses crt;
const n=5;
var l,k:array[1..n,1..n] of integer;
s1,s2,i,j:integer;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
k[i,j]:=random(100);
if i>j then s1:=s1+k[i,j];
if i<j then s2:=s2+k[i,j];
write(k[i,j]:3);
end;
writeln;
end;

for i:=1 to n do begin
if s1>s2 then l[i,i]:=0;
for j:=1 to n do begin
if s1<s2 then l[j,i]:=k[i,j] else if i=j then l[i,j]=0 else l[i,j]:=k[i,j];
end;
end;

for i:=1 to n do begin
for j:=1 to n do begin
write(l[i,j]:3);
end;
writeln;
end;
readkey;
end.

[Fest]

Огромное спасиба, абатик!