Определить кол-во наибольших чисел в произвольно заданном числовом массиве(за один проход по массиву).

const n=10;var a:array[1..n] of integer;max,k,i:integer; beginRandomize;for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end;writeln;max:=a[1]; k:=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,'  k = ',k);end.Пример:  1  4  9 20  9  5  8 20 14 15max = 20  k = 2