Найти сумму элементов, расположенных ниже главной диагонали квадратной матрицы - Pascal ABC

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

Помогите пожалуйста написать программу: Найти сумму элементов, расположенных ниже главной диагонали квадратной матрицы.

Решение задачи: «Найти сумму элементов, расположенных ниже главной диагонали квадратной матрицы»

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

uses crt;
const N=10;
var arr:array[1..N,1..N] of integer;
    i,j,sum:integer;
begin
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
   arr[i,j]:=random(10);
   if i-1>=j then
    begin
    sum:=sum + arr[i,j];
    textcolor(red);
    end
   else
    textcolor(blue);
   write(arr[i,j],' ');
   end;
 writeln();
 end;
textcolor(black);
writeln('Cумма элементов, расположенных ниже главной диагонали: ', sum);
end.

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

В начале кода подключается библиотека crt, которая используется для работы с числовыми значениями.
Затем определяется константа N, которая представляет собой размерность квадратной матрицы и равна 10.
Создается переменная arr типа array[1..N,1..N] of integer, которая представляет собой саму матрицу.
Далее определяются три переменные: i, j и sum. Переменная i используется для обхода строк матрицы, а переменная j - для обхода столбцов. Переменная sum используется для хранения суммы элементов, расположенных ниже главной диагонали.
Затем начинается цикл for i:=1 до N do, который выполняет цикл по строкам матрицы.
В каждой итерации цикла выполняется вложенный цикл for j:=1 до N do, который выполняет цикл по столбцам матрицы.
Внутри вложенного цикла arr[i,j]:=random(10), который присваивает случайное число от 0 до 9 каждому элементу матрицы.
Затем проверяется условие if i-1>=j then, которое проверяет, находится ли элемент матрицы, который нужно просуммировать, ниже главной диагонали.
Если условие истинно, то переменной sum присваивается сумма элементов, расположенных ниже главной диагонали, и цвет текста меняется на красный.
Если условие ложно, то цвет текста меняется на синий.
После этого выполняется операция write(arr[i,j],' '), которая выводит элемент матрицы на экран.
После окончания вложенного цикла выполняется операция end.
После окончания внешнего цикла выполняется операция writeln();
Затем цвет текста меняется на черный, и выводится сообщение 'Cумма элементов, расположенных ниже главной диагонали: ', которое содержит значение переменной sum.
Код завершается.