Найти количество элементов массива, равных наибольшему. паскаль

Program p1;

const N=10;

var i, max, sum:integer;

a:array[1 ... 10] of integer;

begin

randomize;

max:=0;

sum:=0;

for i:=1 to N do a[i]:=1+random (10);

for i:=1 to N do write (a[i],' ');

for i:=1 to N do

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

writeln;

writeln ('Максимальное число: ', max);

for i:=1 to N do

if (a[i]=max) then sum:=sum+1;

write ('Количество максимальных чисел: ', sum);

end.