Заполнить одномерный массив случайными числами вещественного типа и вывести на экран консольного вывода,количество элементов массива являются константной величиной равной 6

Const
N = 6;
Var
A:array[1..N] of real;
i:integer;
Begin
For i:= 1 to N do
    Begin
    A[i]:=random()*100;
    Write(A[i]:0:3,' ')
    End;
End.