дан массив из 10 частей. посчитать творенье этих частей. помогите пожалуйста

var

   d : array of integer := new integer[10];

   a : integer := 1;

begin

   d := arrRandom(10, 1, 10); // заполняем массив случайными числами от 1 до 10

   for var i := 0 to 9 do a := a*d[i]; // перемножаем

   writeln('дан массив: ', d);

   writeln('творенье всех его членов одинаково ', a);

end.