Одномерный массив из 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.