Найти сумму элементов побочной диагонали матрицы - Pascal ABC

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

Помогите пожалуйста, срочно! Ввести матрицу A(n,n) целого типа. Найти сумму элементов побочной диагонали. Если она положительна, то на место последнего элемента матрицы поставить 1, иначе 0. Матрицу отпечатать.

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

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

var a: array [1..100, 1..100] of integer;
    n, i, j, sum: integer;
begin
  write('n = '); readln(n);
  sum := 0;
  for i := 1 to n do
    for j := 1 to n do begin
      a[i, j] := random(31) - 15;
      if j = n - i + 1 then sum := sum + a[i, j];
      if (i = n) and (j = n) then
        if sum > 0 then a[n, n] := 1
        else a[n, n] := 0;
    end;
  for i := 1 to n do begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
end.

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

Объявляются переменные:
- a - массив размером [1..100, 1..100] для хранения целочисленных значений;
- n - переменная для хранения количества заполняемых элементов матрицы;
- i, j - переменные для хранения индексов элементов матрицы;
- sum - переменная для хранения суммы элементов побочной диагонали.
Пользователю предлагается ввести значение переменной n.
Инициализируется переменная sum значением 0.
Два вложенных цикла заполняют матрицу a случайными целыми числами от -15 до 15.
Если значение j равно n-i+1, то к переменной sum прибавляется значение элемента a[i, j].
Если i=n и j=n, то проверяется значение переменной sum. Если оно больше 0, то в элемент a[n, n] записывается 1, иначе 0.
Два вложенных цикла выводят значения элементов матрицы a.
Программа завершается.