Ошибка в программе

[романколесников]

Пытаюсь ввести последний элемент массива и меня выкидывает. PascalABCNET
Program2.pas(16) : Ошибка времени выполнения: Индекс находился вне границ массива. хотя сам индекс вне границ не выходит.


сам код.

const
N = 5;
var
 a: array [1..N] of integer;
 i,m,s: integer;
begin
  s:=0;
  for i:=1 to N do
  readln(a[i]);
  m:=a[1];
   if m > a[i]    // поиск максимального значения 
   then a[i]:=a[i+1];
   m:=a[i];
for i:=0 to N do 
begin
if a[i] mod 2 = 0 then   // программа вылетает на этой строчке
s:=s+a[i];
writeln(s);
end;
end.

[evg_m]

a: array [1..N] of integer;

for i:=0 to N do

хотя сам индекс вне границ не выходит.

???

[nikimen]

у меня вопрос эта программа для поиска максимального значения?
если так то вот сылка https://www.youtube.com/watch?v=P2HHpZgOgXk после 45 минуты там будет обьяснение

[type_Oleg]

У вас фигня какая-то

for i:=1 to N do
  readln(a[i]); // *- и все, только это и делается в цикле.
// * а это - уже вне цикла , то есть сделается только 1 раз : 
  m:=a[1];
   if m > a[i]    //поиск максимального значения
   then a[i]:=a[i+1]; // * - вот здесь и будет выход за пределы