动态二维数组：如何根据输入文本框的n值，将n*n的二维数组输出(100分)

大家好：我想通过输入文本框的给定的n值，输出一个二维数组。
矩阵An*n，元素为0和1；
给定一个文本框，用户指定n值；
之后，输出这个n*n的矩阵。
请教各位高手，拜谢了！
参考我的代码：
var
n,i,j,:integer;
a:array of array of integer;
begin
Randomize;
n:=strtoint(Edit1.Text);
SetLength(a,n,n);
For i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(1);

end;[red][/red]

var
n,i,j,:integer;
a:array of array of integer;
begin
Randomize;
n:=strtoint(Edit1.Text);
SetLength(a,n,n);
For i:=0 to n-1 do
for j:=0 to n-1 do
a[i,j]:=Random(1);

end;