怎么用Delphi编写出一个矩阵
我想用delphi编写产生一个矩阵，比如我想产生一个468*546的矩阵，该怎么编？跪求！急急急急急急急急急急急急急急！

[解决办法]
procedure CreateArray ;
var
ArrayDim :array[1..468,1,546] of Longword ;
i,k :Word ;
begin
for i :=1 to 468 do
for k :=1 to 546 do
ArrayDim[i,k] :=i*k ;
end;