Трехмерный динамический массив в Pascal Опции

[4итер]

Создать трехмерный динамический массив типа real 10*10*10. Заполнить случайными числами от 0 до 100, в цикле перемножить все элементы и поделить на их количество.
Массив вроде как описать смог, а дальше не пойму.

type TMass1=array of real;
       TMass2=array of TMass1;
       TMass3=array of TMass2;
var i,j:real;
Setlength(FMass,10);
for i:=Low(FMass) to High(FMass) and
begin
Setlength(FMass[i],10);
for j:=Low(FMass[i] to High(FMass[j]
Setlength(FMass[i][j],10);
end;

[Rian]

я бы наверно тип объявил попроще...

type TMass1=array of array of array of real;

после того как объявил обошел все элементы да и сделал что нужно например заполнить случайными где проблема?

mas[x][y][z]:=random(100)

[Ромаха]

Заполнить случайными числами от 0 до 100

mas[x][y][z]:=random(100)

Боюсь автор задачи предполагал, что верхняя граница должна быть тоже включена, поэтому, наверное, стоит писать Random (101);

Далее.. Наверное не стоит использовать динамику.

Код

type
       TArr = array [1..10] of array [1..10] of array [1..10] of Integer;

Далее нам нужно перемножить все элементы. Всего их 10^3. Предположим худший вариант, всё числа приняли значение 100. Тогда их произведение будет 100^(1000). Это не влезет никуда. (не рассматриваю вариант с длинной арифметикой)...