Дан массив из десяти целых чисел. определите, сколько элементов этого массива имеют максимальное значение. паскаль

var

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

max, n, i: integer;

begin

for i : = 1 to 10 do

a[i] : = random (100);

writeln ('Элементы массива: ');

for i : = 1 to 10 do

writeln (a[i], ' ');

max : = a[1];

n : = 1;

writeln;

for i : = 2 to 10 do

if a[i] > max then

begin

n : = 1;

max : = a[i]

end

else

if a[i] = max then

inc (n);

writeln ('Количество элементов, имеющих максимальное значение: ', n)

end.