PascalABC.NET Задать массив из 8-ми элементов заданных с клавиатуры. Найти среднеарифметическое всех элементов и наибольший элемент.

begin
  var a:=ReadArrInteger('Вводите:',8);
  Writeln('Ср.арифм.=',a.Average,', максимум равен ',a.Max)
end.


Вводите: 6 -4 2 0 4 9 1 6
Ср.арифм.=3, максимум равен 9