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

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.