Помогите написать программу на языке программирования Паскаль в результате выполнения которой получались произведение не нулевых элементов массива .

program HelloWorld;

var n:array [1..10] of integer;

var c: integer;

var i: SmallInt;

 begin

c:=1;

 for i:=1 to 10 do         n[i] := random(10); //заполняем случайными данными

for i:=1 to 10 do    if n[i] > 0 then c:=c*n[i];

end.