Трехмерный динамический массив в 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)