Удалить максимальный и минимальный элемент массива на паскале​

Const
n=5;m=6;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of longint;
k,i,j:integer;
p:longint;
begin
   for i:=1 to n do
      begin
         writeln;    
            for j:=1 to m do
                 begin
                    a[i,j]:=random(20)-10;
                     write(a[i,j]:4);
                 end;
      end;
writeln;

for j:=1 to m do
  begin
p:=1;
     for i:=1 to n do
          if (a[i,j]mod 2=0)and(a[i,j]>0) then
             p:=p*a[i,j];
if p<>1 then
  begin
     k:=k+1;
     b[k]:=p;
  end;
end;
for i:=1 to k do
   write(b[i]:8);
end.

Матрица не может быть прямоугольной так иначе будет не понятно что подразумевается под диагональю
#include<iostream>
#include<vector>
int main() {
int n;
std::cin>>n;
std::vector<std::vector<int>> matrix(n);
for (int i =0;i<n;++i) {
    for (int j =0;j<n;++j) {
        int elem;
        std::cin>>elem;
        matrix[j].push_back(elem);
    }
}
int first_diag = 0;
int second_diag = 0;
for (int i = 0;i<n;++i) {
    first_diag+=matrix[i][i];
    second_diag += matrix[i][n-i-1];
}
int res = 0;
res = first_diag - second_diag;
std::cout<<res;
}