Матрицы (Pascal)

[spinogryz_ua]

Нужно найти суму и кол-во отрицательных елементов находящихся под главной диагональю матрицы.

uses crt;
type mas=array[1..7,1..7] of real;
var matr:^mas;
i,j,k:byte;
begin
randomize;
new(matr);
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
matr^[i,j]:=random-25+random(50);
write(matr^[i,j]:8:2);
end;
writeln;
end;
for i:=1 to 7 do
begin
k:=0;
for j:=1 to 7 do
// не знаю как сделать
end;
end.

[Sciv]

sum:=0;
k:=0;
for i:=1 to 7 do
  for j:=1 to i-1 do
    if (matr^[i,j]<0) then begin
      sum:=sum+matr^[i,j];
      inc(k);
    end;