Дана матрица размера 3х3. Подсчитать сумму элементов находящихся выше главной диагонали

program prog;
 
const
  n = 3;
 
var  
  i, j, s: Integer;
  matrix: array[1..n, 1..n] of Integer;
  
begin
  Randomize;
    
  for i:= 1 to n do begin
    for j:= 1 to n do begin
      matrix[i,j]:= Random(10);
      Write(matrix[i,j]:5);
    end;
    WriteLn;
  end;
 
  s:= 0;
  
  for i:= 1 to n - 1 do begin
    for j:= i + 1 to n do begin
      Inc(s, matrix[i,j]);
      WriteLn(matrix[i,j]);
    end;      
  end;
  
  WriteLn('сумма элементов находящихся выше главной диоганали: ', s);
end.

program;
 
const
  n = 3;
var
  a,i,j: integer;
  mas: array[1..n, 1..n] of integer;
 
begin
  Randomize;
  Writeln('Ваш массив:');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      mas[i,j]:= Random(10);
      Write(mas[i,j],'  ');
     end;
    Writeln;
   end;
 
  a:= 0;
 
  for i:=1 to n do
  for j:=1 to n do
    if j>i then
    a:=a+mas[i,j];
 
  Writeln('Сумма ровна',a);
  readln;
 
end.