Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали - Turbo Pascal

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

1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

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

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

type
  matrix = array [1..100, 1..100] of integer;
 
var
  n, m, i, j: integer;
  sum: integer;
  c: matrix;
 
function sumdiag(c: matrix; n, m: integer): integer;
var
  s, i, j: integer;
begin
  s := 0;
  for i := 1 to n do
    for j := 1 to m do
      if j < i then
        s := s + c[i, j];
  sumdiag := s;
end;
 
begin
  n := 3;
  m := 3;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i, j] := random(n * m);
      write(c[i, j]:6);
    end;
    writeln;
  end;  
  writeln(sumdiag(c, n, m));
end.

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

Создаётся тип данных matrix, представляющий массив целых чисел размером от 1 до 100 в каждой из двух координат.
Создаются три переменные: n, m и i, инициализированные значениями 3, 3 и 1 соответственно.
Создаётся переменная sum и инициализируется значением 0.
Создаётся переменная c, которая является массивом целых чисел размером n на m.
Выполняется цикл по i от 1 до n.
Внутри цикла выполняется цикл по j от 1 до m.
Внутри цикла проверяется условие j < i. Если оно истинно, то к переменной s прибавляется значение c[i, j].
Значение s присваивается переменной sum.
После окончания внутреннего цикла по j выполняется вывод значения sum.
Задаются значения n и m, равные 3.
Выполняется цикл по i от 1 до n.
Внутри цикла выполняется цикл по j от 1 до m.
Внутри цикла выводится значение c[i, j] (случайное число от 0 до n*m) с помощью функции write.
После окончания внутреннего цикла по j выполняется вывод строки-разделителя.
Выводится значение функции sumdiag, которое является суммой элементов, находящихся ниже главной диагонали массива c.
Выводится итоговый результат.