Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-5,5} и находит произведение ненулевых элементов.( фри Паскаль)

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

i,p: integer;

begin

randomize;

p:=1;

for i:=1 to 10 do begin

a[i]:=random(11)-5;

write(a[i],' ');

if a[i]<>0 then p:=p*a[i];

end;

writeln;

write('p=',p);

end.