题目：
用随机函数产生两个一维数组（两位整数），然后合并到二维数组，再将二维数组按方阵形式显示出来。 

我做完的程序输出后发现，数组中的值几乎是重复的，好象随机函数并没有起作用，到底我错在什么地方？

程序如下：

var a,b:array[1..4] of real;
    c:array[1..2,1..4] of real;
    d,e:integer;
begin
  for d:=1 to 4 do
    begin
      randomize;
      a[d]:=1+98*random;
      b[d]:=1+98*random;
    end;
  for d:=1 to 4 do c[1,d]:=a[d];
  for e:=1 to 4 do c[2,d]:=b[d];
  for d:=1 to 2 do
    begin
      for e:=1 to 4 do write(c[d,e]:4:0);
      writeln
    end;
end.