В двуменрном массиве реальных чисел отыскать творенье отрицательных элементов больших

program raf105;

var a:array[1..3,1..3] of integer;

i,j,x:integer;

begin

writeln('Введите 9 чисел по очереди');

x:= 1;

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j] lt; 0) and (a[i,j] gt; -14)

     then x *= a[i,j];

end;

writeln('Вывод: ',x);

end.

Язык PascalABC