Одномерный массив из 15 элементов случайным образом (отрицательные и положительные) найти произведение положительных, сумму отрицательных (в паскале)

Var k, i, sum:integer; P:longint; R:Array[1 ... 15] of integer; Beginp:=1; for i:=1 to 15 do beginR[i]: = random (15) - 5; write (R[i]:3) ; if R[i] > 0 then p: = p * R[i]; if R[i] < 0 then sum: = sum + R[i]; end; writeln; writeln ('произведение положительных чисел = ', p) ; writeln ('сумму отрицательных чисел = ', sum) end.