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

Const
  n=8;
var
  s,max,i:integer;
  a:array[1..n] of integer;

begin
  max:=-32768;
  Write('Введите 8 частей массива: ');
  for i:=1 to n do begin
    Read(a[i]);
    s:=s+a[i];
    if a[i]gt;max then max:=a[i]
    end;
  Writeln('max=',max,', среднее=',s/n:0:5)
end.