Составить программу получения с помощью датчика случайных чисел: 25 действительных чисел, лежащих в диапазоне от -50 до 50 — Pascal(Паскаль)

var
d:array[1..25] of real;
i:integer;
begin
   for i:=1 to 25 do
           begin
             d[i]:=random(100)-49-1/(1+random(19));
             write(d[i]:3:2,'  ');
           end;
        
 end.