помогите составить программу в Паскаль по задаче:
найти среднее арифметическое наибольшего и наименьшего элементов в одномерном массиве

БЕЗ РАНДОМА!!!​

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Вводите элементы массива:', n);

 Println('Результат:', (a.Max + a.Min) / 2)

end.