Сравнить по модулю сумму элементов массива с четными индексами с суммой элементов с нечетными индексами

Задача: 

Дан массив целых чисел. Сравнить по модулю сумму элементов, стоящих на четных местах массива, с суммой элементов, стоящих на нечетных местах.

Описание переменных: 
  • arr - массив;
  • i - индекс элемента массива;
  • s_even - сумма элементов с четным индексом;
  • s_odd - сумма элементов с нечетным индексом.
Алгоритм решения задачи: 
  1. Присвоить переменным s_even и s_odd нули.
  2. Перебрать элементы массива. Если индекс очередного элемента массива четный (т.е. делится без остатка на 2), то добавить его значение к значению переменной s_even. Иначе (когда элемент нечетный) добавить к s_odd.
  3. Если модуль s_even больше модуля s_odd, то вывести сообщение о том, что по модулю сумма элементов на четных местах больше, чем на нечетных. Иначе вывести сообщение, что по модулю сумма элементов на четных местах не больше, чем на нечетных (значения могут быть и равны).
Программа на языке Паскаль: 

const N = 15;
var
    arr: array[1..N] of integer;
    i: byte;
    s_even, s_odd: integer;
begin
    randomize;
    s_even := 0;
    s_odd := 0;
    for i:=1 to N do begin
        arr[i] := random(100) - 50;
        write(arr[i]:5);
        if i mod 2 = 0 then s_even := s_even + arr[i]
        else s_odd := s_odd + arr[i];
    end;
    writeln;
    writeln('Сумма элементов массива, стоящих на четных местах: ', s_even);
    writeln('Сумма элементов массива, стоящих на нечетных местах: ', s_odd);
    if abs(s_even) > abs(s_odd) then
        writeln('По модулю первая сумма больше второй.')
    else
        writeln('По модулю первая сумма меньше либо равна второй.');
end.

Примеры выполнения программы:

  -45   38  -35  -50    1    2   21  -25  -39  -27   18  -24   14   19   16
Сумма элементов массива, стоящих на четных местах: -67
Сумма элементов массива, стоящих на нечетных местах: -49
По модулю первая сумма больше второй.
   24   -6   15   -6  -15   36  -33   37  -19  -37  -40    8   33  -19  -25
Сумма элементов массива, стоящих на четных местах: 13
Сумма элементов массива, стоящих на нечетных местах: -60
По модулю первая сумма меньше либо равна второй.