Дан одномерный массив B(10). Заполнить массив случайными числами из интервала [0;1)

program zz1;
const n = 10; // задаем количество частей в массиве
var i:integer; // задаем переменную целого типа
m:array [1..n] of real; // задаем массив вещественного типа
begin
for i:=1 to n do // получаем n чисел случайных  на интервале от нуля до единицы и записываем их в массив
m[i]:=random;
for i:=1 to n do  // организуем цикл для вывода частей массива
write(m[i]:5:2);// выводим приобретенный массив на экран в формате 5 знаков для всего числа и два знака после точки
end.