Всё решил проблему, вспомнив слова Odd о реализации неквадратных массивов.
Принцип таков:
Program Massivy;
var
i,j,k : integer;
object : array [1..1000] of integer;
begin
//.....
i:=1;j:=1;k:=1;
//Обращаюсь к элементу
Object[(i-1)*100+(j-1)*10+k]:=34;
//....
end.
При таком варианте можно скоко угодно размерностей, да и места используется минимум, потому как подмассивы могут быть различной длины.
=)