送分题：初始化数组解决方法

送分题：初始化数组
我有一个动态数组Ball长度共   4531
现在要给他分配不同的数据值,例如下数据，A1,A2,A3,A4,A5分别存放1、10、20、500、1000
3000
请问用语句如何实现初始化下面的值   ，谢谢

1   个   1
10   个   2
20   个   3
500   个   4
1000   个   5
3000     个6

------解决方案--------------------
var
Ball : array[1..4531] of byte;
A1,A2,A3,A4,A5,A6 : integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
A1:=1; A2:=10; A3:=20; A4:=500; A5:=1000; A6:=3000;
FillChar(Ball[Low(Ball)],A1,1);
FillChar(Ball[Low(Ball)+A1],A2,2);
FillChar(Ball[Low(Ball)+A1+A2],A3,3);
FillChar(Ball[Low(Ball)+A1+A2+A3],A4,4);
FillChar(Ball[Low(Ball)+A1+A2+A3+A4],A5,5);
FillChar(Ball[Low(Ball)+A1+A2+A3+A4+A5],A6,6);
end;