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

За один проход либо за несколько?

не написано. размышляю что за 1

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]gt;Max then
       Begin
       Max:=A[i];
       k:=1;
       End
    else if A[i]=Max then k:=k+1;
WriteLn('Max = ',Max);
WriteLn('Кол-во максимумов: ',k);
End.