В даном массиве з 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.