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

//PascalABC.NET 3.1 сборка 1239begin    var a := ArrRandomInteger(30, -10, 10);    a.Println;    var max:=a.Max;    Println(a.Where(x -> x=max).Count);end.при 10 редка вероятность больше 1 максимума