菜鸟问题：关于数组的赋值(50分)

有一个integer的数组，怎样简单赋值？
a: array[0..8] of integer;
我想在函数的首部初始化它，让a[0]:=2;a[1]:=5;a[2]:=3……
但是当数组个数为一百多个时，即a:array[0..198] 0f integer时，还像上面这样写程序
赋值输入量实在太大，有没有简单一点的方法，如像C语言那样a=(0,1,2,5,3,7……)

把想付值写到一个listbox中！
然后用一个FOR 将ARRAY:=strtoint(listbox.items);
不知这样是不是你想要的！

<marquee>我也是眼高手低</marquee>

当然有
a: array[0..2] of integer=(1,1,1);
不过Delphi中只有全局变量才可以赋初值！

是每次进入函数都要初始化还是只需要初始化一次?
如果只需要初始化一次, 那么把这个数组定义成Const就可以了:
const
a: array [0..2] of Integer = (2, 5, 3);
如果是每次都要初始化, 那么只有代码的优化问题了, 必须一个一个赋值
一个简单的方法是用空间换编程效率:
另外定义一个const数组并赋初始值, 方法同上.然后一次将这个数组的值赋给数组a
const
tmp: array [0..2] of Integer = (2, 5, 3);
var
a: array [0..2] of Integer;
begin
move(tmp[0], a[0], SizeOf(Tmp));
end;

多人接受答案了。