PascalABC.NETЗадать массив из 8-ми частей заданных с клавиатуры. Отыскать

Т.е. для того чтоб найти допустим среднеарифметическое нужно сначала сложить все элементы, после разделить на кол-во частей, а не командой Average. Размышляю имелось ввиду что-то сходственное

PROGRAM yaPak;vara:array[1..8]of integer;i,max:integer;y:real;BEGINy:=0;for i:=1 to 8 dobeginreadln(a[i]);y:=y+a[i];writeln('a[',i,']=',a[i]);end;y:=y/8;max:=1;for i:=1 to 8 dobeginif a[max] <= a[i] thenbeginmax:=i;end;end;writeln('cpegHeapuFMeTu4eckoe=',y);writeln('a[',i,']=',a[max],' caMbiII 6oJlbIIIoII eJleMeHT');END. породон, в заключительном до слов END. где writeln('a[',i тут поменять i на max,']=',a[max],' caMbiII 6oJlbIIIoII eJleMeHT');

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

begin
  var (n,s,max):=(8,0,-MaxInt);
  var a:=new integer[n];
  Write('Введите 8 элементов массива: ');
  for var i:=0 to n-1 do begin
    Read(a[i]);
    s+=a[i];
    if a[i]gt;max then max:=a[i]
    end;
  Writeln('max=',max,', среднее=',s/n:0:5)
end.
 
Пример
Введите 8 частей массива: 38 46 29 50 42 38 40 41
max=50, среднее=40.50000

Program wk;
var m:array [1..8] of integer; i:integer;sr:real;imax:integer ;
begin
sr:=0;imax:=0; 
for i:=1 to 8 do 
 begin 
   Readln(m[i]); 
   if m[i]gt;imax then imax:=M[i]; 
   end; 
for i:=1 to 7 do  sr:=m[i]+m[i+1];
Writeln('Среднее арифметическое=',sr/8);
Writeln('Наивеличайший элемент =',imax)   
end.