Array mit Zufallszahlen

[holle]

Dieses einfache Programm soll 10 Zufallszahlen erzeugen und anschließend ausgeben. Als Ausgabe erhalte ich jedoch 0 0 0... Was mache ich falsch?

Delphi-Quellcode:

program min_array;
uses
        crt;
const
        LENGTH = 10;
var
        zufall: array[0..LENGTH] of integer;

procedure fillArray(a: array of integer);
var     i: integer;
begin
        for i := 0 to LENGTH - 1 do
                a[i] := random(100) + 1;
end;

procedure printArray(a: array of integer);
var     i: integer;
begin
        for i := 0 to LENGTH - 1 do
                writeln(a[i]);
end;


begin
        randomize;
        clrscr;

        fillArray(zufall);
        printArray(zufall);

        readln;
end.