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

program one;
type
mas=array[1..50]of byte;
var
a:mas;
i:integer;
f:real;
n:byte;
procedure sr(a:mas; var k:real);
var
i:integer;
s,sr:real;
n:byte;
begin
write('Кол-во элементов ');
readln(n);
for i:=1 to n do
begin
s:=s+a[i];
k:=k+1;
end;
sr:=s/k;
k:=0;
for i:=1 to n do
if k>=sr then k:=k+1;
writeln('Количество элементов равных и больших среднего арифметического значения= ', k:4:4);
end;
begin
write('Кол-во элементов ');
readln(n);
write('Введите a[',i,'] элемент ');
readln(a[i]);
sr(a,f);
end.

program one;
 
type
  mas = array[1..50] of byte;
 
var
  a: mas;
  i: integer;
  f: integer;
  n: integer;
 
procedure sr(a: mas; var k: integer);
var
  i: integer;
  s, sr: real;
begin
  for i := 1 to n do
  begin
    s := s + a[i];
    k := k + 1; // это тоже можно не считать, есть же n
  end;
  sr := s / k;
  k := 0;
  for i := 1 to n do
    if a[i] >= sr then k := k + 1;
end;
 
begin
  write('Кол-во элементов ');
  readln(n);
  for i := 1 to n do
  begin
    write('Введите a[', i, '] элемент ');
    readln(a[i]);
  end;
  sr(a, f);
  
  writeln('Количество элементов равных и больших среднего арифметического значения= ', f:4);
end.