помогите пожалуйста язык паскаль)Ввести двумерный массив A 43. Найти в нём

Const
  m = 4;
  n = 3;

var
  a: array[1..m, 1..n] of integer;
  i, j, t: integer;
  p: longint;

begin
  Randomize;
  Writeln('Исходный массив');
  p := 1;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(19) - 9;
      Write(a[i, j]:3);
      if (абс(a[i, j]) lt; 1) or (абс(a[i, j]) gt; 5) then p := p * a[i, j]
    end;
    Writeln
  end;
  Writeln('Творенье частей с модулем вне [1;5] одинаково ', p)
end.

Тестовое решение:
Начальный массив
 -8  2  7
 -3 -8  5
  1 -4 -3
  6  9  6
Творение частей с модулем вне [1;5] одинаково 145152