Написать программу для pascal.Программа считывает с клавиатуры массив из N элементов(N <1000) и выводит максимальный и минимальный элемент массива и их среднее арифметическое

begin
  var a:=ReadArrReal('Вводите элементы массива'+NewLine,ReadInteger('n='));
  Writeln('Max=',a.Max,', min=',a.Min,', среднее=',(a.Min+a.Max)/2)
end.


n= 8
Вводите элементы массива
  3.45 -2.7 1.18 0 -2 4.623 -2.734 7
Max=7, min=-2.734, среднее=2.133