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

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 = 10
81.8 24.7 93.9 64.2 39.6 11.1 77 0.3 98.2 42.6