Определить количество элементов, больших среднего арифметического всех элементов

const
  maxN = 100;
 
type
  massiv = array [1..maxN] of integer;
 
procedure zapros(var a: massiv; var n: integer);
var
  i: integer;
begin
  write('n= ');
  readln(n);
  for i := 1 to n do
  begin
    write('a[', i, ']='); 
    readln(a[i]);
  end;
end;
 
function srednee(a: massiv; n: integer): real;
var
  s, b, i: integer; t: real;
begin
  s := 0;
  b := 0;
  for i := 1 to n do
  begin
    s := s + a[i];
    b := b + 1;
  end;
  t := s / b;
  srednee := t;
end;
function kolich(a: massiv; n, t: integer):integer;
var
  d, i: integer;
begin
  d := 0;
  for i := 1 to n do
    if a[i] > t then
    begin
      d := d + 1;
    end;
end;
 
var
  n: integer;
  a, d: massiv;
 
begin
  zapros(a, n);
  srednee(a, n);
  d := kolich;
  writelin(d); 
end.

const
  maxN = 100;
 
type
  massiv = array [1..maxN] of integer;
 
procedure zapros(var a: massiv; var n: integer);
var
  i: integer;
begin
  write('n= ');
  readln(n);
  for i := 1 to n do
  begin
    write('a[', i, ']='); 
    readln(a[i]);
  end;
end;
 
function srednee(a: massiv; n: integer): real;
var
  s, b, i: integer; t: real;
begin
  s := 0;
  b := 0;
  for i := 1 to n do
  begin
    s := s + a[i];
    b := b + 1;
  end;
  t := s / b;
  srednee := t;
end;
function kolich(a: massiv; n: integer;t:real):integer;
var
  d, i: integer;
begin
  d := 0;
  for i := 1 to n do
    if a[i] > t then
    begin
      d := d + 1;
    end;
  kolich:=d;
end;
 
var
  n,d: integer;
  a: massiv;
  sr:real;
begin
  zapros(a, n);
  sr:=srednee(a, n);
  writeln('Среднее арифметическое = ',sr:0:2);
  d := kolich(a,n,sr);
  writeln('Кол-во = ',d); 
end.