Массивы

[Сагадат]

Здраствуйте дорогие. пожалуйста помогите решить задачу на паскале.
Через 2 часа ехать в универ, чтобы сдать лабу. Вот и пощел на отчайный шаг, прошу у вас помощи.

Дана действительная квадратная матрица порядка n. Рассмотрим те элементы, которые расположены в строках, начинающихся с отрицательного элемента. Найти суммы тех из них, которые расположены соответственно ниже, выше и на главной диагонали.

P.S я гуглил, поиском пользовался, но толком решение не нашел.
Спасибо.

Моя версия.

program Project1; 

const n=100;
var 
i,j,size,sum1,sum2:integer;
A:array [1..n, 1..n] of integer;
begin 
randomize; 
write('Enter size of matrix:'); 
readln(size); 


for i:= 1 to size do 
for j:= 1 to size do 
A[i,j]:=random(10)-5; 


for i:= 1 to size do 
begin 
for j:= 1 to size do 
begin 
write(A[i,j],' '); 
end; 
writeln; 
end; 

sum1:=0;sum2:=0;
for j:= 1 to size do
if A[1,j]<0 then
begin
   for i:= 1 to j-1 do sum1:=sum1+A[i,j];
   for i:= j+1 to size do sum1:=sum2+A[i,j]; 
end;
writeln('Sum1 = ',sum1); 
writeln('Sum2 = ',sum2);
readln; 
end.

Помог брат, но толком не понял про сумму ниже, выше и на главной диагонали.

[Сагадат]

и еще что в этом коде не понял, то что она выводит 2 sum. по идее мне же надо 3