Задача с матрицой

[maziLa]

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

[Sazary]

uses crt;
type
matr = array[1..100,1..100] of integer;
var
a : matr;
i,j,k,N : integer;

procedure Otric(m : matr; n : integer; var s : integer);
 var i,j : integer;
 begin
 s := 0;
 for i:=1 to n do
  for j:=i+1 to n do
   if m[i,j]<0 then inc(s);
 end;

begin
clrscr;
randomize;
write('Vvedite N: ');
readln(N);

for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  a[i,j] := random(20)-8;
  write(a[i,j]:5);
  end;
 writeln;
 end;
writeln;

Otric(a,N,k);
writeln('Kolichestvo otric. el-v: ',k);

readln;
end.

+ бонус =)

uses crt;
type
matr = array[1..100,1..100] of integer;
var
a : matr;
i,j,k,N : integer;

procedure Otric(m : matr; n : integer; var s : integer);
 var i,j : integer;
 begin
 s := 0;
 for i:=1 to n do
  for j:=i+1 to n do
   if m[i,j]<0 then inc(s);
 end;

begin
clrscr;
randomize;
write('Vvedite N: ');
readln(N);

for i:=1 to N do
 begin
 for j:=1 to N do
  begin
  a[i,j] := random(20)-8;
  if j<i then TextColor(8)
  else if j=i then TextColor(5)
  else
   begin
   if a[i,j] < 0 then TextColor(10)
   else TextColor(8);
   end;

  write(a[i,j]:5);
  end;
 writeln;
 end;
writeln;
TextColor(15);

Otric(a,N,k);
writeln('Kolichestvo otric. el-v: ',k);

readln;
end.