PascalABC.NETЗадать массив из 8-ми элементов заданных с клавиатуры. Найти среднеарифметическое всех элементов и наибольший элемент. (В развёрнутой форме, без команд ReadInteger, ReadArrInteger, Average и др.)

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]>imax then imax:=M[i]; 
   end; 
for i:=1 to 7 do  sr:=m[i]+m[i+1];
Writeln('Среднее арифметическое=',sr/8);
Writeln('Наибольший элемент =',imax)   
end.