В последовательности действительных чисел а1, а2,…, аn, есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведение положительных элементов Р2. Сравнить модуль Р2 с модулем P1, указать, какое из произведений по модулю больше — Pascal(Паскаль)

uses crt;
var a:array[1..100]of integer;
i,n:integer;
p1,p2:longint;
 
begin
 clrscr;
 write('N -> ');
 readln(n);
 write('Введите массив -> ');
 for i:= 1 to N do read(a[i]);
 readln;
 p1:=1;
 p2:=1;
 for i:=1 to N do 
     if a[i] > 0 then p1:=p1*a[i]
       else if a[i]<0 then p2:=p2*a[i];
 if abs(p1) > abs(p2) then writeln('Модуль P1 больше') 
    else if abs(p1) < abs(p2) then writeln('Модуль P2 больше') 
       else writeln('Модули равны');
 readln;
end.