Как складывать только отрицательные элементы матрицы

uses crt;
var a: array [1..8,1..8] of integer;
    i,j,sum: integer;
begin
writeln('Введите кол-во строчек в матрице');
readln(i);
writeln('Введите кол-во столбцов в матрице');
readln(j);
writeln('Полученная матрица');
for i:=1 to i do
 begin
    for j:=1 to j do
     begin
     a[i,j]:=random(30);
     write(a[i,j]:3);
        if j<i then inc(sum,a[i,j]);
        end;
    writeln;
    end;
writeln('Сумма ниже главной диагонали =',sum);
end.

{1626313 выбрать нужный вариант}
uses crt;
var a: array [1..8,1..8] of integer;
    i,j,s1,s2,s3: integer;
begin
writeln('Введите кол-во строчек в матрице');
readln(i);
writeln('Введите кол-во столбцов в матрице');
readln(j);
writeln('Полученная матрица');
for i:=1 to i do
 begin
    for j:=1 to j do
     begin
     a[i,j]:=random(31)-15;
     write(a[i,j]:3);
        if j<i then inc(s1,a[i,j]);                  //Сумма ниже главной диагонали
        if a[i,j]<0 then inc(s2,a[i,j]);             //Сумма отрицательных всей матрицы
        if (j<i) and (a[i,j]<0) then inc(s3,a[i,j]); //Сумма отрицательных ниже главной диагонали
        end;
    writeln;
    end;
writeln('Сумма ниже главной диагонали =',s1);
writeln('Сумма отрицательных всей матрицы =',s2);
writeln('Сумма отрицательных ниже главной диагонали =',s3);
end.