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

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

program diagonal;
var
a:array[1..10,1..10] of integer;
n,i,j,s:integer;  {'n - размерность матрицы'}
begin
s:=0;
     writeln('Введите размерность матрицы');
     readln(n);
writeln('Введите элементы матрицы');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
               writeln('Матрица:');
               for i:=1 to n do  begin
               for j:=1 to n do Write(a[i,j],' ');
               WriteLn;
               end;
for i:=1 to n do
for j:=1 to n do
 
      if i>j then s:=s+a[i,j];
 
    writeln('сумма элементов находящиеся ниже главной диагонали матрицы- ',s);
end.

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

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

program diagonal;
var
a:array[1..10,1..10] of integer;
n,i,j,s:integer;  {'n - размерность матрицы'}
procedure inputArray;
begin
  for i:=1 to n do
  for j:=1 to n do
  readln(a[i,j]);
  end;
procedure printArray;
begin
  for i:=1 to n do  begin
  for j:=1 to n do Write(a[i,j],' ');
  WriteLn;
  end;
end;
function SumElem:real;
var
  i,j,s:integer;
begin
  for i:=1 to n do
  for j:=1 to n do
  if i>j then s:=s+a[i,j];
  SumElem:=s;
end;
begin
  s:=0;
  writeln('Введите размерность матрицы');
  readln(n);
  writeln('Введите элементы матрицы');
  inputArray;
  writeln('Матрица:');
  printArray;
  s:=SumElem;
  writeln('сумма элементов находящиеся ниже главной диагонали матрицы- ',s);
end.

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

В программе объявлены переменные a, n, i, j, s.
Функция SumElem вычисляет сумму элементов матрицы, начиная с элемента в позиции (i,j) и двигаясь по диагонали до элемента в позиции (n,n).
В функции inputArray считываются элементы матрицы.
В функции printArray выводятся элементы матрицы.
Программа запрашивает у пользователя размерность матрицы и считывает элементы матрицы.
Выводится матрица и сумма элементов, находящихся ниже главной диагонали.