Ошибка: индекс находится вне границ массива - PascalABC.NET

Формулировка задачи:

Доброго времени суток. Вот задача:

Спойлер

Университет Иннополис готовится к проведению Летней школы олимпиадного программиро- вания. Сейчас им нужно выбрать даты проведения. Организаторы заметили, что школа проходит лучше, если настроение детей с каждым днем школы улучшается, также они заметили, что настро- ение школьников сильно зависит от погоды: в ясную погоду школьники веселее, чем в пасмурную. Организаторы запросили прогноз погоды на n дней, в которые можно провести школу. Для каждого дня они посчитали число a[i] — солнечность i-го дня. Теперь они хотят выбрать для про- ведения школы некоторый непрерывный отрезок дней, такой, что каждый следующий день школы солнечность строго больше, чем в предыдущий. Помогите организаторам школы найти максимальное число дней, которые может идти школа.

Формат входных данных

В первой строке входного файла задано число n — число дней, в которые можно провести школу. Во второй строке заданы n чисел a[i] — солнечности дней (0 ⩽ a[i] ⩽ 109).

Формат выходных данных

Выведите одно число: максимальное число дней, которое может идти школа так, чтобы каждый следующий день школы был солнечнее, чем предыдущий

Дополнительно

Кликните здесь для просмотра всего текста

Что не так в моем решении? Выдает ошибку.

                    Листинг программы
                
 
                        
                          
                    
var
 bin,bout:text;
 i:word;
 R:word; // Окончательный результат
 N:word; // Кол-во дней(элементов массива)
 A:array of Word;
begin
 Assign(bin,'input.txt'); Reset(bin);
 Assign(bout,'output.txt'); Rewrite(bout);
 R:=0;
 Readln(bin,N);
 SetLength(A,N);
 While not Eoln(bin) do
 begin
  Read(bin,A[i]);
  for i:=1 to N do
   begin
    if A[i]>A[i+1] then
     inc(R);
   end;
 end;
 Writeln(bout,R);
end.

Решение задачи: «Ошибка: индекс находится вне границ массива»

textual
                            Листинг программы 
                        
for i:=0 to N-2 do
   begin
    if A[i]>A[i+1] then
     inc(R);
   end;