Напишите программу, которая находит в массиве количество элементов, равных максимальному. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести два числа, разделив их пробелом: максимальный элемент массива и количество элементов массива, равных максимальному.
Примеры
входные данные 6 1 2 3 2 3 3
выходные данные 3 3
Помогите,пожалуйста, написать программу в паскале, у что-то не получается

// PascalABC.NET 3.0, сборка 1111begin  var n:=ReadInteger();  var a:=ReadArrInteger(n);  var mx:=a.Max;  WriteFormat('{0} {1}',mx,a.Where(x->(x=mx)).Count)end.Тестовое решение:61 2 3 2 3 33 3Замечание:Предложенные в задании входные данные 6 1 2 3 2 3 3 некорректны, поскольку по условию должно быть две входные строки. На этом основании эти данные были разбиты на две строки и соответственно был организован их ввод.

входные данные

в первой строке 6

во второй 1 2 3 2 3 3

Как Вы можете видеть, контрольное решение было именно на таких данных проведено.

спасибо