Процедура и функция. Даны четыре матрицы. Найти сумму элементов над побочной диагональю,не четных элементов

Program Matrix;
uses Crt;
const   n=5;
type    Int_n = 1..n;
        Mas_Type=Array[Int_n, Int_n] of integer;
var     A, B, C, D : Mas_Type;
        minSum     : integer;
        masSum: array [1..3] of integer;
        i, key : byte;
 
Procedure Matr(var Mas:Mas_Type; Size:Int_n);
          var i, j : byte;
          Begin
          Randomize;
          for i:=1 to Size do
              for j:=1 to Size do
                  Mas[i, j]:= Random(50);
          End;
Procedure Matr_Print(Mas:Mas_Type; Size:Int_n);
          var i, j : byte;
          Begin
          for i:=1 to Size do
          begin
              for j:=1 to Size do
                  Write(Mas[i, j]:4);
              Writeln;
          end
         End;
Function Sum(Mas:Mas_Type; Size:Int_n):integer;
         var i, j : byte;
         s : integer;
         Begin
          s:=0;
          for i:=1 to Size do
          begin
              for j:=1 to Size do
              begin
                   if (i < Size-j+1) and (not Odd(Mas[i,j])) then
                      s:= s+Mas[i,j];
              end
          end;
          Sum:= s;
         End;
 
BEGIN
     ClrScr;
     Matr(A, n);
     Matr(B, n);
     Matr(C, n);
     Matr(D, n);
 
     {Для проверки результата выведем матрицы}
     Writeln('Матрица A:');
     Matr_Print(A, n);
     Writeln('Сумма = ', Sum(A, n));
     Writeln('Нажмите Enter...');
     Readln;
     Writeln('Матрица B:');
     Matr_Print(B, n);
     Writeln('Сумма = ', Sum(B, n));
     Writeln('Нажмите Enter...');
     Readln;
     Writeln('Матрица C:');
     Matr_Print(C, n);
     Writeln('Сумма = ', Sum(C, n));
     Writeln('Нажмите Enter...');
     Readln;
     Writeln('Матрица D:');
     Matr_Print(D, n);
     Writeln('Сумма = ', Sum(D, n));
     Writeln('Нажмите Enter...');
     Readln;
     Writeln;
 
     minSum:=Sum(A, n);
     masSum[1]:=Sum(B, n);
     masSum[2]:=Sum(C, n);
     masSum[3]:=Sum(D, n);
     key:=0;
     for i:= 1 to 3 do
     begin
         if masSum[i] < minSum then
         begin
              minSum:= masSum[i];
              key:= i;
         end
     end;
     Writeln('Искомая матрица - ');
     case key of
          1:  begin Writeln('матрица B:'); Matr_Print(B, n); end;
          2:  begin Writeln('матрица C:'); Matr_Print(C, n); end;
          3:  begin Writeln('матрица D:'); Matr_Print(D, n); end;
          else begin Writeln('матрица A:'); Matr_Print(A, n); end;
     end;
END.