Найти среднее арифметическое всех элементов массива

uses crt;
var b: array [1..100] of integer;
    r,d1,d2,k1,k2,a,i: integer;
    m: real;
begin
write ('Укажите размер массива ');
readln (r);
writeln ('Укажите диапазон массива ');
write ('от ');
readln (d1);
write ('до ');
readln (d2);
write ('Введите а ');
readln (a);
m:=0;
for i:=1 to r*4+10 do
write ('-');
writeln;
write ('Индекс  ');
for i:=1 to r do
    write (i:4);
writeln;
write ('Элемент ');
for i:=1 to r do
    begin
    b[i]:=random(d2-d1+1)+d1;
    write (b[i]:4);
    if b[i]<a then
       begin
       m:=m+b[i];
       inc(k1);
       end;
    end;
writeln;
for i:=1 to r*4+10 do
    write ('-');
writeln;
m:=m/k1;
for i:=1 to r do
    if b[i]<m then
       inc(k2);
writeln ('Среднее арифметическое элементов, меньших ',a,', равно ',m:2:2);
writeln ('Количество элементов, больших ',m:2:2,', равно ',k2);
end.

const n=5;
var i,i2,m,a,diapM,diapB:integer;
    mas:array[1..n]of real;
    buf:real;
 
begin
Write('Введите нижнию границу диапазона: ');
ReadLn(diapM);
Write('Введите верхнию границу диапазона: ');
ReadLn(diapB);
Write('Получилось: ');
for i:=1 to n do begin
   mas[i]:=random(diapB-diapM)+diapM;
   Write(mas[i],'  ');
end;
Write('Введи а: ');
ReadLn(a);
for i:=1 to n do begin
   if  mas[i]<a then begin
      buf:=buf+mas[i];
      i2:=i2+1;
   end;
end;
Write('Среднее арифметическое: ', buf/i2);
end.