Напишите функцию int CountMax (double A[], int n) которая подсчитывает, сколько раз в массиве встречается значение, являющееся максимальным

program z;
var i,max,k,n:integer;
a:array [1..10] of integer;
function maxi(a1:array [1..10] of integer; max1,n1:integer):integer;
     var k1,i:integer;
     begin
         k1:=0;
         for i:=1 to n1 do
             if a[i]=max1
                then
                    k1:=k1+1;
         maxi:=k1;
     end;
begin
     writeln('Введите кол-во элементов массива');
     readln(n);
     writeln('Ввод элементов массива');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Исходный массив');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     max:=a[1];
     for i:=1 to n do
         if a[i]>max
            then
                max:=a[i];
     k:=maxi(a,max,n);
     writeln('Кол-во элементов равных максимальному в массиве - ',k);
end.

max:=a[1];
for i:=1 to n do
if a[i]>max
then
max:=a[i];

function maxi(a1:array [1..10] of integer; max1,n1:integer):integer;
var k1,i:integer;
begin
k1:=0;
for i:=1 to n1 do
if a[i]=max1
then
k1:=k1+1;
maxi:=k1;
end;

function maxi(a1:array [1..10] of integer; max1,n1:integer):integer; {описание функции и переменных}
var k1,i:integer; {описание локальных переменных}
begin
k1:=0;
for i:=1 to n1 do
if a[i]=max1
then
k1:=k1+1;
maxi:=k1;
end;