Free Pascal怎样产生从1到1000的100个随机数

var
i:integer;
a:array[0..100] of integer;
begin
randomize;
for i:=1 to 100 do
a[i]:=random(1000);
for i:=1 to 100 do
write(a[i]:5);
readln;
end.