Написать процедуру нахождения количества максимальных элеметнов массива

program z;
var i,max,k,n,k1:integer;
a:array [1..100] of integer;
procedure search(b,m:integer; var k1:integer);
     begin
          if b=m
             then
                 k1:=k1+1;
     end;
begin
     write('Êîë-âî ýëåìåíòîâ ìàññèâà: ');
     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:=0; k1:=0;
     for i:=1 to n do
         search(a[i],max,k);
     writeln('Êîë-âî ìàêñèìàëüíûõ ýëåìåíòîâ ìàññèâà - ',k);
end.

Program search;
var mas:array [1..100] of integer;
    max,i,n:integer;
 
procedure search(mas:array[1..100]of integer; max:integer);
var s:integer;
begin
s:=0;
for i:=1 to n do
if mas[i] = max then inc(s);
writeln('Ìàêñèìàëüíûõ ÷èñåë â ìàññèâå: ',s);
end;
 
begin
write('Ââåäèòå ðàçìåð ìàññèâà: ');
readln(n);
for i:=1 to n do
begin
write('Ââåäèòå ',i, '-å ÷èñëî: ');
readln(mas[i]);
end;
 
max:=mas[1];
for i:=2 to n do
if mas[i]>max then max:=mas[i];
writeln('Ìàêñèìàëüíîå ÷èñëî = ',max,' ');
search(mas, max);
end.