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

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, Max, k:integer;

Begin

Write ('Исходный массив: ') ;

For i: = 1 to N do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ')

End;

WriteLn;

k:=0;

Max:=A[1];

For i: = 2 to N do

if A[i]>Max then

Begin

Max:=A[i];

k:=1;

End

else if A[i]=Max then k:=k+1;

WriteLn ('Max = ', Max) ;

WriteLn ('Кол-во максимумов: ', k) ;

End.