pascal随机函数怎么做?

在第一次使用随机数发生器(Random函数)之前，调用一下Randomsize过程
在需要生成随机数时用Random函数.
例如：

var
s: array[1..10] of integer;

procedure sample;
var i: integer
begin
randomize; {初始化随机函数}
for i:=1 to 10 do
begin
s[i] := Random( 100 ); {产生一个100以内的随机整数赋给s[i]}
end;
end;