写一个二维的你看。三维的以次类推，自己琢磨一下，留给你动脑的空间。

var
  X : array[0..2,0..2] of integer = ((1,2,3),(4,5,6),(7,8,9));

procedure TForm1.Button1Click(Sender: TObject); /////测试
var
  I, J : integer;
begin
  for I := 0 to 2 do begin
    Memo1.Text := Memo1.Text + #13#10;
    for J := 0 to 2 do
      Memo1.Text := Memo1.Text + InttoStr(X[I,J]) +  '、';
  end;
end;

注意，上面演示的是全局数组。我至今没有找到局部变量赋初值的办法。因为局部变量在栈上，不象全局或静态变量具有固定地址。

上面有一句话说错了：

我至今没有找到局部变量赋初值的办法----应该改为：我至今没有找到局部变量这样赋初值的语法

谢谢 长尾兔。 

谢谢啦，谢谢啦。。。。。。:-)