procedure THIххх.doхххх;
var
i,j,n: integer;
Массив: array of array of array of integer;
begin
.
.
i := 5;
j := 6;
n := 7;
SetLength(Массив, i,j,n); //Вот так неправильно? а как надо?
.
.
.
.
SetLength(Массив, 0,0,0);
end;