在调用random前先调用randomize,才能算真正的随机...
如:
var a:array [1..4] of integer;
var b,c:integer;
    begin
    randomize;  
    for b:=1 to 4 do
    a[b]:=random(9);
    for b:=1 to 4 do
    write (a[b] );
    writeln;
    end. 

调用随机函数前先要写randomize或randomseed:=***;
否则的话就不能启动随机数.
因为随机数并不真正是随机的,
而是计算机根据一定算法算出来的.