Дан массив из 10 элементов. Составить программу которая даёт ответ на вопрос есть ли в массиве более одного элемента равного максимальному. Ответ выводится в виде Да/Нет.PASCAL.

begin
  var a:=ArrRandom(10,1,9); a.Println;
  if a.Where(t->t=a.Max).Count>1 then
    Writeln('Есть элементы, равные максимальному')
  else
    Writeln('Нет элементов, равных максимальному')
end.


5 5 6 4 4 1 6 9 8 3
Нет элементов, равных максимальному

1 8 1 5 2 3 1 4 5 8
Есть элементы, равные максимальному