Вданом массиве з 20 действительных чисел найти произведение элементов,которые меньше за среднее арифметическое

Program a_86betiri;
uses crt;
const n=20;
var
  a:array[1..n] of real;
  sum, mt: real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  mt:=1;
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(100);
      sum:=sum+a[i];
    end;
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      if a[i]<(sum/n) then
      mt:=mt*a[i];
      write (a[i]:7:2);
    end;
   writeln();
   writeln('Произведение элементов, меньших, чем среднее арифметическое:  ',mt);
end.