Сформировать массив произвольной длины заполненный вещественными числами в диапазоне от 1 до 100 найти и вывести на экран произведение всех элементов а также максимальное значение элементов

Так подойдет?

const n=5;
var  a,b: array[1..n] of single;
  p: real;
  m: single;
  i: integer;
begin  randomize;
  m:=-0.1;
  p:=1;
  for i:=1 to n do begin;
     a[i]:=random+random(1,99);
     writeln (a[i]);
     p:=p*a[i];
     if a[i]>m then m:=a[i];
  end;
  writeln; 
  writeln (Произведение элементов = ,p);
  writeln (Максимальный элемент = ,m);
end.  
----------результат-------------
30.57125
58.69655
77.24072
21.7612
29.61645

Произведение элементов = 89328084.4036029
Максимальный элемент = 77.24072