Дан квадратный массив из n элементов. Найти сумму элементов выше главной диагонали — Pascal(Паскаль)

Program dmas_17;

uses crt;

const
  m = 4;

Var
  a: array [1 .. m, 1 .. m] of integer;
  min, i, j, s: integer;

Begin
  randomize;
  For i := 1 to m do
  begin
    For j := 1 to m do
    begin
      a[i, j] := random(10);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  s := 0;
  For i := 1 to m - 1 do
    For j := i + 1 to m do
      s := s + a[i, j];
  writeln('Сумма элементов выше главной диагонали = ', s);
  Readln;

End.