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

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

Выдаёт после ввода следующую ошибку : "Ошибка времени выполнения: Индекс находился вне границ массива" В чём проблема? Само задание:

Разработайте консольное приложение для вывода таблицы значений функции в точках, полученных делением отрезка на равных частей. Функция вычисляется как конечная сумма соответствующего ряда Тейлора с заданной пользователем точностью . Все данные, необходимые для вычисления значений функции и вывода таблицы, вводятся пользователем. Формула для нахождения значения функции определяется в соответствии с имеющимся номером варианта из табл. 3.1, приведённой ранее в описании текущей лабораторной работы (задание № 3) .

Код с этой ошибкой:

program Lab;
 
var
  a, b, e: double; 
  N: integer;
  
  part: double;
 
//=============================================================================
function one(x0, x: double; N: integer): double;
var
  ab: double;
begin
  // Длина отрезка [a,b]
  ab := x - x0;
  
  // Расстояние между x[i] и x[i+1] ( длина равных отрезков на [a,b] )
  one := ab / N;
end;
//=============================================================================
//=============================================================================
type
  res = array[1..100] of double;
 
var
  y: res;
 
procedure two(a, part, e: double; N: integer; var y: res);
var
   j: integer;
  p, x, sum: double;
begin

  for var i := 0 to N+1 do
  begin
    
    if Abs( a + part * i) >= 1 then
    begin
      y[i] := 0;
    end
    
    else
    
    begin
      j := i;
      while p < e do
      begin
        x := a + part * j;
        p := 2 * (exp((2 * j + 1) * Ln(x)) / (2 * j + 1));   
        sum := p;
        j := j + 1;
      end;  
      y[i] := sum;
    end;
    
  end;

end;
 
//==============================================================================
//==============================================================================
begin
  
  // Ввод
  WriteLn('Введите значение a');
  ReadLn(a);
  WriteLn('Введите значение b');
  ReadLn(b);
  WriteLn('Задайте точность e');
  ReadLn(e);
  WriteLn('Введите значение N ');
  ReadLn(N);
  
  part := one(a, b, N);
  
  two(a, part, e, N, y);
  
  //==============================================================================  
  
    // Вывод 
     begin
        WriteLn('-------------------------');
        WriteLn('Точность e = ', e); 
        WriteLn('-------------------------');
      end;
  
  for var i := 0 to N + 1 do
  
  begin
    
    if y[i] = (not 0) then
    begin
      
      begin
        WriteLn('-------------------------');
        WriteLn('| y = ', y[i]);
        WriteLn('-------------------------');
      end; 
      
    end
    else
    begin
      WriteLn('x not Є( |x| < 1 )');
    end;
    
  end;
end.

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

textual
                            Листинг программы 
                        

                            Var a:array[1..n] of Тип;
I:integer
Begin
For i:=0 to ....
a[i]:=значение;
End.
                        