Type
TMyArr = array of array of array of Integer;
Pint = ^TMyArr;
var
PArr: Pint;
i, j, k, ic, jc, kc: Integer;
begin
ic := 2;
jc := 3;
kc := 4;
New(PArr);
SetLength(PArr^, ic, jc, kc);
for i := 0 to ic - 1 do
for j := 0 to jc - 1 do
for k := 0 to kc - 1 do
PArr^[i][j][k] := Random(100);
for i := 0 to ic - 1 do
for j := 0 to jc - 1 do
for k := 0 to kc - 1 do
mmo1.Lines.Add(Format('Arr[%d][%d][%d] = %d',
[i, j, k, PArr^[i][j][k]]));
Dispose(PArr);
mmo1.Lines.Add('-----------------------------');
end;