В даном массиве з 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]      mt:=mt*a[i];
      write (a[i]:7:2);
    end;
   writeln();
   writeln(Произведение элементов, меньших, чем среднее арифметическое:  ,mt);
end.