Пожалуйста посчитайте сделать до завтра, пожалуйста, очень срочно!!!Вычислить произведение положительных элементов массива состоящего из 10 элементов заполненных случайными числами от -100 да +100. В паскале.

const n=10;
var a:array[1..n] of integer;
i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(201)-100;
 write(a[i]:4);
 end;
writeln;
p:=1;
for i:=1 to n do
 if a[i]>0 then p:=p*a[i];
writeln('p = ',p:9:0);
end.

Пример:
Массив A:
-3458-9 -15 -3757-9226943
p = 215795844