Написать процедуру для вычисления суммы элементов матрицы, которые находятся ниже главной диагонали

uses crt;
const
M=7;
var
A: array [1..M,1..M] of real;
B: array [1..M] of real;
i,j:integer;
Begin
  for j:=1 to M do B[j]:=0;
  writeln('Заданный массив');
  for i:=1 to M do
    begin
      for j:=1 to M do
        begin
         A[i,j]:=40-random(50)+random;
         write(A[i,j]:7:4,' ');
         if j<i then B[j]:=B[j]+A[i,j];
        end;
      writeln;
    end;
  writeln;
  writeln('Cуммa элементов, которые находятся ниже главной диагонали');
  for j:=1 to M do write(B[j]:7:4,' ');
  writeln;
  writeln;
  writeln('Результрующий массив');
  for i:=1 to M do
    begin
      for j:=1 to M do
        if A[i,j]>0 then write(int(A[i,j]):7:4,' ') else write(A[i,j]:7:4,' ');
      writeln;
    end;
end.

const
  maxN = 100;
 
type
  matrix = array[1..maxN, 1..maxN] of integer;
 
procedure diag(a: matrix; n: integer; var s: integer);
var
  i, j: integer;
begin
  s := 0;
  for i := 1 to n do 
    for j := 1 to n do
      if i > j then 
        s := s + a[i, j];
end;
 
var
  x: matrix;
  i, j, sum, n: integer;
 
 
begin
  readln(n);
  randomize;
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      x[i, j] := -N div 2 + random(N * n);
      write(x[i, j]:4)
    end;    
    writeln;
  end;
  diag(x, n, sum);
  writeln(sum);
end.