>>71
コピペして、Var2Dimの値がどうなるか試してみな。

procedure Test;
type
　　T2DimArray:array[0..1][0..1] of Integer;
const
　　CONST2DIM:T2DimArray:array=( (0,1),(2,3) );
var
　　Var2Dim:CONST2DIM:T2DimArray;
begin
　　Var2Dim := CONST2DIM;
end;