Как создать одномерный динамический массив, заполненный случайными числами с одним знаком после запятой.

var i,n: integer;    a: array of real;begin  write('n = ');  readln(n);  setlength(a,n);  randomize;  for i:=0 to n-1 do  begin    a[i]:=random(1000)/10;    write(a[i],' ');  end;end.n = 1081.8 24.7 93.9 64.2 39.6 11.1 77 0.3 98.2 42.6