Заполняем массив..., Заполнил, а он пустой Опции

[comanche]

Элементарное задание: заполнил двумерный массив при помощи процедуры дробными числами, вывел на экран числа.
После заполнения пытаюсь получить доступ к элементам массива, а он пустой

Код

Program Exercise;
Uses
  CRT;

Type
  TArray2D = Array [1..9, 1..9] OF Single;

Procedure FillArray2D(Array2D: TArray2D);
    var
      i, x: Byte;
    begin
      WriteLn('  þ Initial array:');
      WriteLn;
      For i := 1 To 9 Do
        For x := 1 To 9 Do
          begin
            Array2D[i, x] := Random(90)+10;
            Write(Array2D[i, x]:4:0);
            if x mod 9 = 0 Then WriteLn;
          end;
    end;

Var

  FracNums: TArray2D;

Begin

  ClrScr;
  FillArray2D(FracNums);
  WriteLn;
  WriteLn(FracNums[5, 5]:4:0); {вот здесь и начинаются приколы}
  ReadKey;

End.

[comanche]

Да задание такое дали, с дробными числами. Это всего лишь его начало