Вопрос Почему программа работает неправильно? Pascal

[NOOBAS]

Var
kol,i,max:integer;
A:array[1..1000] of integer;
Begin
write('Количество чисел: ');
readln(kol);
for i:= 1 to kol do
begin
readln(A);
if A>A[i+1] then
max:= A;
end;
writeln('Максимальное число: ',max);
End.

 

[x3m]

readln (A[1]); перед циклом. Цикл с 2 и A[i-1];