Найти разность между суммой элементов двумерного массива - Pascal ABC

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

Помогите пожалуйста Найти разность между суммой элементов двумерного массива X(N,M), стоящих в столбцах с чётными номерами и суммой элементов, стоящих в строках с нечетными номерами.

Решение задачи: «Найти разность между суммой элементов двумерного массива»

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

var x: array [1..100, 1..100] of integer;
    n, m, i, j, sum_i, sum_j: integer;
begin
  write('n, m = '); readln(n, m);
  sum_i := 0; sum_j := 0;
  for i := 1 to n do begin
    for j := 1 to m do begin
      x[i, j] := random(31) - 15;
      write(x[i, j]:4);
      if odd(i) then
        sum_i := sum_i + x[i, j];
    end;
    writeln;
  end;
  for j := 1 to m do
    if not odd(j) then
      for i := 1 to n do
        sum_j := sum_j + x[i, j];
  writeln('Сумма элементов чётных столбцов: ', sum_j);
  writeln('Сумма элементов нечётных строк: ', sum_i);
  writeln('Их разность: ', sum_j - sum_i);
end.

Объяснение кода листинга программы

Объявлены переменные: двумерный массив x, числа n, m, i, j, суммы sum_i, sum_j типа integer.
Пользователю предлагается ввести значения n и m.
Инициализированы суммы sum_i и sum_j.
В цикле вычисляются значения элементов массива x случайным образом.
Если индекс i нечетный, то соответствующее значение прибавляется к sum_i.
По завершении первого цикла выводится разрыв строки.
Во втором цикле вычисляются значения суммы sum_j по нечетным строкам.
Выводится значение суммы sum_j.
Выводится значение суммы sum_i.
Вычисляется разность между суммами sum_j и sum_i.
Выводится значение разности.