求助，二维数组的赋值问题(50分)

想给一个二维数组赋值，结果出现问题，
就是A(ii,jj):=aa[jj];这一行
编译提示出错Missing Operator or semicolon
和incompatabile types:'double'and 'dynamic array';
程序代码如下，求助各位高手了！
var
Form1: TForm1;
aa:array of do
uble;
//初始化抗体（1组）
A:array of array of do
uble;
//抗体组合（i,j)
i,j:integer;
//i为抗体组合数，j为抗体元素个数
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var StrPath:string;
StrNanme:string;
ii,jj:integer;
//抗体循环次数
begin
i:=10;
j:=6;
if opendialog1.Execute then
begin
StrPath:=ExtractFilePath(OpenDialog1.FileName);
StrNanme:=OpenDialog1.FileName;
end;
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Open(StrNanme,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[ExcelApplication1.Workbooks.count]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
SetLength(aa,j);
SetLength(A,i,j);
for jj:=1 to j do
//给系数赋值
begin
aa[jj]:=ExcelWorksheet1.Cells.Item[jj,1];
end;
for ii:=1 to i do
//复制i组抗体
begin
for jj:=1 to j do
begin
A(ii,jj):=aa[jj];
end;
end;
end;

楼主啊, 问题应该放在技术问题中;
// 你的问题很简单: 数组下标不是A(ii,jj)这样写的, 你再仔细检查一下吧!

A[ii,jj]:=aa[jj];
对，我看至少这个是问题。
i,j:integer;
不要
i,j:byte,就可以了。