Найти произведение отрицательных элементов массива — Pascal(Паскаль)

const
  N = 10;

var
  a: array [1 .. N, 1 .. N] of integer;
  Pr: Longint; { произведение }
  i, j: integer;

begin
  Pr := 1;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      if a[i, j] < 0 then
        Pr := Pr * a[i, j];
    end;
  end;
  WriteLn('Произве