Задать одномерный массив (в) из 25 вещественных элементов с цикла while

Const n=25;
var b:array [1..n] of real;
    i:integer;
begin
  writeln('Заданный массив:');
  Randomize;
  for i:=1 to n do
  begin
    b[i]:=5*random-2.5;
    write(b[i]:6:2);
    end;
    writeln;
end.