Прошу помогите(Дана действительная квадратная матрица порядка А(n*n).Найти что

как дана матрица и в чём программка нужна?

delphi

PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (su,sl):=(0,0);
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do
      if ilt;j then su+=a[i,j]
      else if igt;j then sl+=a[i,j];
  var sgn:=Sign(su-sl);
  case sgn of
    -1:Writeln('Сумма частей над диагональю меньше');
    0:Writeln('Суммы частей над и под диагональю одинаковы');
    1:Writeln('Сумма частей над диагональю больше')
    end
end.

Самое простое решение program znanijatop;
const n = 100;
var
k,i,j:byte;
s1,s2:real;
a:array[1..n,1..n] of real;
begin
writeln('vvedite poryadok matrice');
readln(k);
s1:=0;s2:=0;for i:=1 to k do begin
for j:=1 to k do begin
writeln('vvedite a[',i,',',j,']');
readln(a[i,j]);
end;
end;
for i:=1 to k do begin
for j:=1 to k do begin
if ilt;j then  s1:=s1+a[i,j];
if igt;j then  s2:=s2+a[i,j];
end;
end;
if s1 gt; s2 then writeln('nad glavnoy diagonali summa bolshe');
if s1 lt; s2 then writeln('pod glavnoy diagonali summa bolshe');
if s1 = s2 then writeln('ravni');
end.