Inicializar arrays multidimensionales

[Robert01]

Una pregunta sobre array multidimensionales y delphi 3:

¿No se puede hacer de la siguiente forma?

Código Delphi [-]
Const nmax = 100;

type Miarray =[1..Nmax,1..Nmax] of integer;

Var a : MiArray;

implementation

procedure X();
  var n : integer;
  begin
    setlength(a,n,n);
    .
    .
    .
  end;

end.

Saludos