Заполните массив с клавиатуры и найдите произведение не нулевых элементов массива) В паскале)

Var b, c, d: integer;

a:array [1 ... 100] of integer;

begin

randomize;

writeln ('введите длину массива') ;

readln (b) ;

d:=1;

for c:=1 to b do begin

a[c]:=random (10) ;

writeln (a[c]) ;

if a[c] 0 then d:=d*a[c];

end;

writeln ('произведение не нулевых элементов массива ', d) ;

end.