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

var
  a: array[,] of real;
 
begin
  
  SetLength(a, readinteger('Кол-во строк: '), readinteger('Кол-во столбцов: '));
  
  for var i := 0 to a.RowCount - 1 do  
    for var j := 0 to a.ColCount - 1 do
      a[i, j] := readinteger('Введите элемент массива: ');
  
  writeln;
  writeln('Массив:');  
  a.Print;
  
  var s := 0.0;
  for var i := 0 to a.RowCount - 1 do  
    for var j := 0 to a.ColCount - 1 do
      if i < j
        then s += a[i, j];
  
  writeln('Сумма: ', s);
  
end.

var
  a: array[,] of real;
  i, j: integer;
  s: real;
 
begin
  var n := readinteger('Кол-во строк: ');
  var m := readinteger('Кол-во столбцов: ');
  
  SetLength(a, n, m);
  
  writeln;
  writeln('Массив:');
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
    begin
      a[i, j] := random(100);
      write(a[i, j]:3);
      if i < j
        then s += a[i, j];
    end;
    writeln;
  end; 
  
  writeln('Сумма: ', s);
  
end.