Ввести квадратные матрицы X1N1×N1 , X2N2×N2 . Обменять главную и побочные диагонали у той матрицы

uses
  crt;
const
  n1=3;
  n2=4;
var
   x:array[1..n1,1..n1] of real;
   y:array[1..n2,1..n2] of real;
   i,j:integer;
   sum1,sum2,b:real;
begin
  randomize; 
  writeln('Первая матрица: ');
  sum1:=0;
  for i:=1 to n1 do
    begin
      for j:=1 to n1 do
        begin
          x[i,j]:=random*n1 - n1 div 2;
          write(x[i,j]:8:2);
          sum1:=sum1+x[i,j];
        end;
      writeln;
    end;
  writeln('Сумма элементов матрицы: ',sum1:8:2);
  sum2:=0;
  writeln('Вторая матрица: ');
  for i:=1 to n2 do
    begin
      for j:=1 to n2 do
        begin
          y[i,j]:=random*n2 - n2 div 2;
          write(y[i,j]:8:2);
          sum2:=sum2+y[i,j];
        end;
      writeln;
    end;
  writeln('Сумма элементов матрицы: ',sum2:8:2);
  writeln;
  if sum1>sum2 then
    begin
      for i:=1 to n1 do
        begin
          b:=x[i,i];
          //variant 1
          x[i,i]:=x[i,n1-i+1];
          x[i,n1-i+1]:=b;
          // variant 2
          {x[i,i]:=x[n1-i+1,i];
          x[n1-i+1,i]:=b;}
        end;
    end
  else
    begin
      for i:=1 to n2 do
        begin
          b:=y[i,i];
          //variant 1
          y[i,i]:=y[i,n2-i+1];
          y[i,n2-i+1]:=b;
          // variant 2
          {y[i,i]:=y[n2-i+1,i];
          y[n2-i+1,i]:=b;}
        end;
    end;
 
  writeln('Первая матрица: ');
  for i:=1 to n1 do
    begin
      for j:=1 to n1 do
        write(x[i,j]:8:2);
      writeln;
    end;
  writeln('Вторая матрица: ');
  for i:=1 to n2 do
    begin
      for j:=1 to n2 do
        write(y[i,j]:8:2);
      writeln;
    end;
  readln
end.