Найти kmax (количество максимальных) в одномерном числовой массиве (паскаль)

Var a:array[0 ... 10000] of integer;

var max, k, n, i: integer;

begin

read (n) ; / / количество чисел в массиве

for i:=1 to n do begin

read (a[i]) ; / / вводим массив

max:=a[1];

end;

for i:=2 to n do

if a[i]>max then max:=a[i];

for i:=1 to n do

if a[i]=max then k:=k+1;

write (k) ;

end.