Вводится последовательность из n произвольных чисел. найти наибольшее число в последовательности. если таких чисел несколько, определить, сколько их. программирование

// PascalABC.NET 3.3, сборка 1531 от 30.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(ReadInteger('n='));
  var m:=a.Max;
  var s:=a.Where(x->x=m);
  if s.Count=1 then Writeln('Масимальное значение ',m)
  else Writeln(s.Count,' максимальных значений, равных ',m)
end.

Пример
n= 5
6 3 6 6 2
3 максимальных значений, равных 6

Var  co, N, max: integer;
begin  max := 0;  co := 1;  readln(N);  for var i := 1 to N do  begin    readln(N);    if N > max then      max := N    else if N = max then      co += 1;  end;  if co <> 1 then    writeln(max, ' ', co)  else    writeln(max);end.