Вычислить в нем сумму элементов

program Project1;
const
  maxelem = 100;
var
  a: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  n1,n2,n3,n4: integer; {Переменные для хранения индексов начала и конца промежутков}
  sum1,sum2: integer; {Переменные для хранения значений суммы}
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln('Введите индексы элементов N1  и  N2: ');
  Readln(n1,n2);
  writeln('Введите индексы элементов N3  и  N4: ');
  Readln(n3,n4);
  sum1:= 0;
  if n2 > n1 then
    for i:= n1 to n2 do
      sum1:= sum1 + a[i]
  else
    writeln('Индекс N1 должен быть меньше индекса N2');
  writeln('Сумма элементов массива начиная с ',n1,' и заканчивая ',n2,': ', sum1);
  sum2:= 0;
  if n4 > n3 then
    for i:= n3 to n4 do
      sum2:= sum2 + a[i]
  else
    writeln('Индекс N4 должен быть меньше индекса N3');
  writeln('Сумма элементов массива начиная с ',n3,' и заканчивая ',n4,': ', sum2);
  writeln('Полная сумма элементов массива: ', sum1 + sum2);
  Readln;
end.