исправить ошибку в программе. Пишет, что в 8 строке нет индексного свойства по умолчанию для типа integer

Program ABC;
const n=14; a=-20; b=10;
Var m: array[1..n] of integer;
i, max: integer;
begin
for i:=1 to n do m[i]:=random(b-a)+a;
for i:=1 to n do write(m[i]:6);
max:=a[1]+a[n];
for i:=2 to n do
if max writeln ( 'maksimalnaya summa ravna', max);
readln;
end.

0010110    3   06.05.2020 23:25    2