Переставить элементы главной диагонали квадратной матрицы

const n=5;
var a: array [1..n,1..n] of integer;
        i,j,t: integer;
begin
        randomize;
        for i:=1 to n do begin
                for j:=1 to n do begin
                        a[i,j]:=random(10);
                        write(a[i,j]:4);
                end;
                writeln;
        end;
        for i:=1 to n div 2 do begin
                t:=a[i,i]; a[i,i]:=a[n-i+1,n-i+1]; a[n-i+1,n-i+1]:=t;
        end;
        writeln;
        for i:=1 to n do begin
                for j:=1 to n do begin
                        write(a[i,j]:4);
                end;
                writeln;
        end;
end.

const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
  
procedure change(n1: integer; var ar: tArr);
var i,j,tmp: integer;
begin
  for i:=1 to n1 div 2 do
    for j:=1 to n1 div 2 do
      begin
      if i=j then
        begin
          tmp:=ar[i,i];
          ar[i,i]:=ar[n1-i+1,n1-i+1];
          ar[n1-i+1,n1-i+1]:=tmp;
          writeln('замена:');
        end;
  end;
end;
 
var
  a: tArr;
  i,j,n: integer;
 
begin
  randomize;
  writeln('Введите размер матрицы: ');
  readln(n);
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  change(n,a);
  
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.