delphi怎样把多个数组赋值给一个动态数组

procedure TForm1.rzbtbtn1Click(Sender: TObject);
const
arr1:array[0..8] of string=('0','1','2','3','4','5','6','7','8');
arr2:array[0..8] of string=('1','2','3','4','5','6','答皮芦7','清带8'握没,'0');
var
i1,i2,i3:integer;
s:TStringList;
arr3:array of string;
begin
s:=TStringList.Create;
for i1:=low(arr1) to high(arr1) do
begin
s.Add(arr1[i1]);
end;
for i2:=Low(arr2) to High(arr2) do
begin
s.Add(arr2[i2]);
end;
SetLength(arr3,s.Count);
for i3:=Low(arr3) to High(arr3) do
begin
arr3[i3]:=s.Strings[i3];
mmo1.Lines.Add(PChar(arr3[i3]));
end;

end;

int temp[5][12];
temp ={{0,1,2,3,4}, {5,6,7,8,9}};
Delphi中只有全局变枯侍做量可以初始化：
var
temp: array[0..4, 0..11] of Integer =
((0,1,2,3,4),(5,6,7,8,9),(0,0,0,0,0),……)//
注意：在没衡Delphi中对数组初谈绝始化时一定要把元素值写全，不能只写一部分。