Найти сумму элементов ниже главной диагонали матрицы - Free Pascal

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

Помогите школьнику 1)Дана матрица A(3,3) Найти сумму элементов ниже главной диагонали. 2)дана матрица A(3x3) Найти сумму элементов матрицы по побочной диагонали

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

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

uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
clrscr;
writeln('Введите элементы матрицы, целые числа');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:4);
    if j<i then s:=s+a[i,j];
   end;
  writeln
 end;
write('Сумма ниже главной диагонали=',s);
readln
end.

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

Установка начального значения переменной s равным нулю.
Вывод матрицы на экран.
Сборка суммы элементов ниже главной диагонали матрицы.
Вывод суммы на экран.