[Frank]

Сейчас попробовал сделать трехмерный массив, все нормально скомпилировалось и запустилось (эмулятор -Sjboy)

Program Array3D;

var object:array[1..10,1..10,1..10] of integer;
Begin
	object[5,7,3]:=7;
	object[1,4,9]:=8;
	object[7,3,6]:=object[5,7,3]*object[1,4,9];
	DrawText(IntegerToString(object[7,3,6]), 5, 5);
	Repaint;	
	Delay(5000);
End.