Pascal. построить одномерный массив вещественных чисел.числа сформировать при генератора случайных чисел

Программа выводит числа в диапазоне [0..R)

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

Var
mas:array [1..20] of real;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
mas[i]:=random(100)-70+random(1000)/1000;
write(mas[i], ' ');
end;
end.