Поменять местами максимальный элемент главной и максимальный элемент побочной диагонали

uses crt;
  var a:array[1..10,1..10] of integer;
      i,j,n,max,Pmax,p:integer;
  begin
  clrscr;
  randomize;
  write('razmernost matrici n=');
  readln(n);
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(60);
      write(a[i,j]:4);
     end;
    writeln;
   end;
  p:=max;
  max:=Pmax;
  Pmax:=p;
  max:=a[1,1];
  for i:=1 to n do
  if a[i,i]>max then max:=a[i,i];
  writeln('max elem glavnoi diagonali=',max);
  Pmax:=a[1,n];
  for i:=1 to n do
  if a[i,n-i+1]>max then max:=a[i,n-i+1];
  writeln('Max element na pobochnoy diagonali=',Pmax);
  for j:=1 to n do
  for i:=1 to n do write (a[i,j]:4);
  readln
  end.

uses crt;
var a:array[1..10,1..10] of integer;
      i,j,n,max,maxi,Pmax,pmaxi,p:integer;
  begin
  clrscr;
  randomize;
  write('razmernost matrici n=');
  readln(n);
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(60);
      write(a[i,j]:4);
     end;
    writeln;
   end;
  max:=a[1,1];maxi:=1;
  for i:=1 to n do
  if a[i,i]>max then begin max:=a[i,i];maxi:=i end;
  writeln('max elem glavnoi diagonali=',max);
  Pmax:=a[1,n];pmaxi:=1;
  for i:=1 to n do
  if a[i,n-i+1]>pmax then begin pmax:=a[i,n-i+1];pmaxi:=i end;
  writeln('Max element na pobochnoy diagonali=',Pmax);
  p:=a[maxi,maxi];
  a[maxi,maxi]:=a[pmaxi,n-pmaxi+1];
  a[pmaxi,n-pmaxi+1]:=p;
  for i:=1 to n do
   begin
    for j:=1 to n do write (a[i,j]:4);
    writeln
   end;
  readln
  end.

const n=5; LIM=100; W=4;
var
  a: array [1..n,1..n] of Integer;
  i, j, mm, mp: Integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(LIM); Write(a[i,j]:W);
    end; WriteLn;
  end;
  mm:=1; mp:=1;
  for i:=2 to n do begin
    if a[mm,mm]<a[i,i] then mm:=i;
    if a[mp,n-mp+1]<a[i,n-i+1] then mp:=i;
  end;
  j:=a[mm,mm]; a[mm,mm]:=a[mp,n-mp+1]; a[mp,n-mp+1]:=j;
  WriteLn('A''(',mm,',',mm,')<->(',mp,',',n-mp+1,')=');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
end.