В двумерном массиве вычислить сумму всех элементов, расположенных выше главной диагонали — Pascal(Паскаль)

uses
  crt;
 
var
  a: array[1..100, 1..100] of integer;
  i, j, m: integer;
  sum: real;
 
begin
  randomize;
  repeat
    writeln('введите размерность');
    readln(m);
  until m in [2..100];
  for i := 1 to m do 
  begin
    for j := 1 to m do 
      a[i, j] := random(10);
  end;
  writeln('первоначальная матрица');
  for i := 1 to m do 
  begin
    for j := 1 to m do 
      write(a[i, j], ' ');
    writeln;
  end;
  readln;
  sum := 0;
  for i := 1 to m do 
  begin
    for j := 1 to m do
      if j > i then begin
        sum := sum + a[i, j];
      end;
  end;
  writeln('сумма', ' ', sum);
  readln;
end.