Помогите составить программу!) В "Pascal ABC"

В последовательности действительных чисел a1, а2, ..., аn есть только положительные и

отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведе-

ние положительных элементов Р2. Сравнить модуль Р1 с модулем Р2 и указать, какое из

произведений по модулю больше.

var

p1, p2, buf: real;

n: byte;

begin

readln (n) ;

for i: byte : = 1 to n do

begin

readln (buf) ;

if (buf > 0) then

if (p2 = 0) then

p2 : = buf

else

p2 : = p2 * buf

else

if (p1 = 0) then

p1 : = buf

else

p1 : = p1 * buf;

end;

writeln ('P1 = ', p1, #13, 'P2 = ', p2) ;

if (abs (p1) > abs (p2)) then

writeln ('|', p1, '| > |', p2, '|')

else

if (abs (p1) < abs (p2)) then

writeln ('|', p1, '| < |', p2, '|')

else

writeln ('|', p1, '| = |', p2, '|')

end.