Ограничить количество знаков после запятой - Turbo Pascal

Формулировка задачи:

Ребят, что нужно поменять чтобы после запуска в массиве получались числа с меньшим количеством знаков после запятой? а то вот такие получаются например: 5.10000000Е+01-препод говорит что нужно изменить формат. А само задание звучит так:Найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива–10. Заполнение массива осуществить случайными числами от 50 до 100.

program element;
uses crt;
var a:array[1..10] of real;
    x,p:real;
    i:integer;
begin
writeln ('Программа нахождения произведения элементов массива');
writeln ('Выполнил студент гр. Э-34 Генералов М. В. ');
for i:=1 to 10 do
   begin
    a[i]:=random(50)+ random +50;
    write(a[i],' ');
   end;
 writeln;
 Write('Введите значение x= ');
 readln(x);
 p:=1;
   for i:=1 to 10 do
    if (a[i]<x) then p:=p*a[i];
writeln('Произведение: ',p:8:3);
Write ('Программа завершена, нажмите любую клавишу...= ');
readln (p);
end.

Решение задачи: «Ограничить количество знаков после запятой»

Листинг программы

for i:=1 to 10 do
 begin
 a[i]:=random(50)+ random +50;
 write(a[i]:6:2);
 end;

Объяснение кода листинга программы

В цикле for i:=1 to 10 do начинается выполнение кода. Цикл будет выполняться 10 раз, начиная с i=1 и заканчивая i=10.
Переменная a[i] инициализируется значением random(50)+random+50. Здесь функция random генерирует случайное число в диапазоне от 0 до 99, а затем к этому числу прибавляется 50. Таким образом, значение a[i] будет случайным числом в диапазоне от 0 до 149.
Значение a[i] записывается в файл с помощью функции write. Функция write(a[i]:6:2) означает, что значение a[i] записывается в файл в формате, где число состоит из 6 цифр, разделенных запятыми, и записывается в виде строки.
Выполнение кода заканчивается, когда цикл for завершается.