Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a

const
  n=12;
var
  a : array[1..n] of integer;
  min, max, i : integer;
begin
  write('min=');
  read(min);
  write('max=');
  read(max);
  writeln(max-min);
  randomize;
  writeln('Индекс':6, 'Элемент':8);
  for i := 1 to n do
    begin
      a[i] := random(max-min) - abs(min);
      writeln(i:3, a[i]:9);
    end;
end.

uses crt;
const n=15;
var mas: array [1..n] of integer;
    i,k,ks: byte;
    nd,kd,a: integer;
    m: real;
    
begin
writeln('Укажите диапазон заполнения (от - до): ');
readln(nd,kd);
write('Введите а: '); readln(a);
write('Индекс:  ');
for i:=1 to n do
    write(i:4);
writeln;
m:=0;
write('Элемент: ');
for i:=1 to n do
    begin
    mas[i]:=random(kd-nd+1)+nd;
    write(mas[i]:4);
    if mas[i]<a then
       begin
       inc(ks);
       m:=m+mas[i];
       end;
    end;
writeln;
if ks>0 then
   begin
   m:=m/ks;
   writeln('Всего ',ks,' элементов меньших ',a,', их среднее=',m:0:2);
   for i:=1 to n do
       if mas[i]<m then inc(k);
   writeln(k,' элементов меньших ',m:0:2);
   end else writeln('Нет элементов, меньших ',m:0:2);
end.