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

var
  Form1: TForm1;
  a:array[1..20] of integer;
  n:integer;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
val(Edit1.Text,n,k);
if(k<>0)or not(n in [2..20])then
 begin
   ShowMessage('Неверно введен размер массива');
   Edit1.Clear;
   Edit1.SetFocus;
   exit;
 end;
with StringGrid1 do
 begin
   fixedrows:=0;
   fixedcols:=0;
   rowcount:=1;
   colcount:=n;
   defaultcolwidth:=30;
  end;
randomize;
for k:=1 to n do
 begin
   a[k]:=random(100);
   StringGrid1.Cells[k-1,0]:=inttostr(a[k]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var  s:real;
     i,k:integer;
begin
  if n=0 then
   begin
     ShowMessage('Вы не создали массив, вернитесь к кнопке "Создать массив"');
     exit;
   end;
s:=0;
for i:=1 to n do
s:=s+a[i];
s:=s/n;
k:=0;
for i:=1 to n do
if a[i]>s then k:=k+1;
Label2.Caption:='Среднее значение='+formatfloat('0.0',s)+'  Количество больших среднего='+inttostr(k);
 
end;

var
Form1: TForm1;

a:array[1..20] of integer;
n:integer;