Дан масив из 10 чисел опредилите сколько элиментов этого масива имеют наибольше значение

//PascalABC.NET 3.1 сборка 1239
begin
    var a := ArrRandomInteger(30, -10, 10);
    a.Println;
    var max:=a.Max;
    Println(a.Where(x -> x=max).Count);
end.

при 10 редка вероятность больше 1 максимума