Найти разность сумм элементов над и под главной диагональю матрицы

const n=5;
type TMatrix = array [1..n,1..n] of Integer;
function DifUL(const a: TMatrix): Integer;
var i, j: Integer; s: Integer;
begin
  s:=0;
  for i:=1 to n do for j:=1 to n do
    if i<j then s:=s+a[i,j] else if i>j then s:=s-a[i,j];
  DifUL:=s;
end;

program Project1;
 
uses
  CRT;
const
  maxelem = 20;
type
  TMatrint = array[1..maxelem,1..maxelem] of integer;
 
 
function DiffSumElementDiagonal(arr: TMatrint; nn: integer): integer;
  { Функция, которая возвращает значение разницы сумм элементов находящихся над
    главной диагональю и под главной диагональю }
var
  i,j: integer;
  sum1, sum2: integer;
begin
  sum1:= 0;
  for i:= 1 to nn-1 do
    for j:= i+1 to nn do
      sum1:= sum1 + arr[i,j];
  sum2:= 0;
  for i:= 1 to nn do
    for j:= 1 to i-1 do
      sum2:= sum2 + arr[i,j];
  DiffSumElementDiagonal:= sum1 - sum2;
end;
 
 
var
  a: TMatrint; { Переменная для хранения массива.}
  n: integer; { Переменная для хранения значения размерности матрицы. }
  i,j: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  write('Введите значение размерности матрицы (не более ',maxelem,'): ');
  Readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Read(a[i,j]);     { Ввод значений в двумерный массив.}
    end;
  Readln;
  clrscr;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        begin
           if j > i then
           textcolor(11)
          else
          if j < i then
            textcolor(10)
          else
            if j = i then
              textcolor(7);
           write(a[i,j]:5,' ');    { Вывод двумерного массива в консоль.}
        end;
      Writeln;
    end;
  textcolor(7);
  writeln('Разность сумм элементов над и под главной диагональю матрицы: ', DiffSumElementDiagonal(a,n));
  Readln;
end.