Одномерный массив из 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] gt; 0 then p:= p *R[i];if R[i] lt; 0 then sum:= sum + R[i];end;writeln;writeln('творение положительных чисел = ',p);writeln('сумму отрицательных чисел = ',sum)end.