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

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

Помогите пожалуйста В массиве L(N,N) найти сумму положительных элементов, расположенных ниже главной диагонали, и произведение ненулевых элементов главной диагонали.

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

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

var l: array [1..100, 1..100] of integer;
    i, j, sum, mul, n: integer;
begin
  randomize;
  sum := 0; mul := 1;
  write('N = '); readln(n);
  for i := 1 to n do begin
    for j := 1 to n do begin
      l[i, j] := random(11) - 5;
      write(l[i, j]:4);
      if (i = j) and (l[i, j] <> 0) then
        mul := mul * l[i, j];
      if (i > j) and (l[i, j] > 0) then
        sum := sum + l[i, j];
    end;
    writeln;
  end;
  writeln('Сумма = ', sum, '; Произведение = ', mul);
end.

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

Объявлены переменные:
- l - массив 20x20 целых чисел;
- i, j - счётчики для перебора элементов массива;
- sum, mul - счётчики для суммы и произведения элементов;
- n - количество заполняемых элементов массива.
Задаётся начальное значение суммы и произведения, равное единице.
Запрашивается количество заполняемых элементов массива.
Заполняются элементы массива случайными числами от -5 до 6.
Если элемент массива равен единице, то произведение увеличивается на этот элемент.
Если элемент массива больше нуля и находится ниже главной диагонали, то к сумме добавляется этот элемент.
Выводится сумма и произведение.