Процедуры-функции. Найти сумму диагональных элементов матриц A и B

const
  n = 5;
type
  TMatr = Array[1..n, 1..n] of Integer;
var
  MatrA, MatrB: TMatr;
 
procedure Generation_PrintMatrix(var Matr: TMatr; Chr: Char);
var
  i, j: Byte;
begin
  Randomize;
  writeln('Матрица ', Chr, ': ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(20);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  writeln;
end;
 
function MainD_Summa(Matr: TMatr): Integer;
var
  Summa: Integer;
  i, j: Byte;
begin
  Summa:=0;
  for i:=1 to n do
    for j:=1 to n do
      if (i = j) then 
        Inc(Summa, Matr[i, j]);
  MainD_Summa:=Summa;
end;
 
function PobD_Summa(Matr: TMatr): Integer;
var
  Summa: Integer;
  i, j: Byte;
begin
  Summa:=0;
  for i:=1 to n do
    for j:=1 to n do
      if (j = n-i+1) then
        Inc(Summa, Matr[i, j]);
  PobD_Summa:=Summa;
end;
 
begin
  Generation_PrintMatrix(MatrA, 'A');
  writeln('Сумма главной диагонали: ', MainD_Summa(MatrA));
  writeln('Сумма побочной диагонали: ', PobD_Summa(MatrA));
  Generation_PrintMatrix(MatrB, 'B');
  writeln('Сумма главной диагонали: ', MainD_Summa(MatrB));
  writeln('Сумма побочной диагонали: ', PobD_Summa(MatrB));
end.