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

const nmax=20;mmax=20;
type mas=array[1..nmax,1..mmax] of integer;
var a:mas;
    n,m,i,j,tmp:integer;
procedure vmas(var x:mas);
var i,i1,j,j1,k,tmp:integer;
begin
 randomize;k:=1;
 for i:=1 to n do
  for j:=1 to m do
   begin
    a[i,j]:=k;inc(k)
   end;
 for i:=1 to n do
  for j:=1 to m do
   begin
    i1:=1+random(n);j1:=1+random(m);
    tmp:=a[i,j];a[i,j]:=a[i1,j1];a[i1,j1]:=tmp
   end
end;
procedure omas(x:mas;s:string);
var i,j:integer;
begin
 writeln(s);
 for i:=1 to n do
  begin
   for j:=1 to m do write(x[i,j]:3);
   writeln
  end
end;
function maxgld(x:mas):integer;
var i,max:integer;
begin
  max:=1;i:=2;
  while (i<=n)and(i<=m) do
   begin
    if a[i,i]>a[max,max]then max:=i;
    inc(i)
   end;
  maxgld:=max
 end;
function maxpod(x:mas):integer;
var i,max,nm:integer;
begin
  if n>m then nm:=m else nm:=n;
  max:=n;i:=n-1;
  while (i>=1)and(n-i+1<=nm)do
   begin
    if a[i,n-i+1]>a[max,n-max+1] then max:=i;
    dec(i)
   end;
 maxpod:=max
end;
procedure zam(var a:mas;ig,ip:integer);
var tmp:integer;
begin
 tmp:=a[ig,ig];a[ig,ig]:=a[ip,n-ip+1];a[ip,n-ip+1]:=tmp
end;
begin
 writeln('введите n и m: ');readln(n,m);
 vmas(a);omas(a,'A:');
 i:=maxgld(a);j:=maxpod(a);
 writeln('максимальный элемент на главной диагонали: ',a[i,i]);
 writeln('максимальный элемент на побочной диагонали: ',a[j,n-j+1]);
 if (not odd(n))or(n div 2>m) 
  then writeln('нет элемента на пересечении диагоналей')
  else
   begin
    if a[i,i]>a[j,n-j+1] 
      then begin tmp:=a[i,i];a[i,i]:=a[n div 2+1,n div 2+1];a[n div 2+1,n div 2+1]:=tmp end
      else begin tmp:=a[j,n-j+1];a[j,n-j+1]:=a[n div 2+1,n div 2+1];a[n div 2+1,n div 2+1]:=tmp end;
    omas(a,'A'':')
   end 
end.