Транспонировать элементы матриц относительно побочной диагонали.

uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of real;
procedure Vvod(var mt:matr;var x:byte;c:char);//создание исходной матрицы
var i,j:byte;
begin
repeat
write('Введите размер матрицы ',c,' до ',nmax,' =');
readln(x);
until x in [1..nmax];
for i:=1 to x do
for j:=1 to x do
mt[i,j]:=10*random;
end;
procedure Vyvod(var mt:matr;x:byte;s:string);//вывод матриц на экран
var i,j:byte;
begin
writeln(s);
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mt[i,j]:5:1);
  writeln;
 end;
end;
procedure Trans(var mt:matr;x:byte);//транспонирование относительно побочной диагонали
var i,j:byte;
    b:real;
begin
for i:=1 to x do/по всем строкам
for j:=1 to x-i+1 do//по столбцам от 1 до побочной
 begin
  b:=mt[i,j];//запоминаем элемент выше диагонали
  mt[i,j]:=mt[x-j+1,x-i+1];//меняем с элементом ниже диагонали
  mt[x-j+1,x-i+1]:=b;//его вниз
 end;
end;
procedure Zamena(var mt:matr;x:byte);//поиск максимального и вычисление среднего на диагонали, замена
var i,j,imx:byte;
    sr:real;
begin
imx:=1;sr:=0;
for i:=1 to x do
 begin
  if mt[i,x-i+1]>mt[imx,x-imx+1] then imx:=i;//индекс строки с максимальным
  sr:=sr+mt[i,x-i+1];//сумма элементов
 end;
sr:=sr/x;//среднее
writeln('Максимальный на побочной [',imx,',',x-imx+1,']=',mt[imx,x-imx+1]:0:1);
writeln('Среднее на побочной=',sr:0:1);
mt[imx,x-imx+1]:=sr;//заменяем
writeln;
end;
 
var a,b:matr;
    n,m:byte;
begin
clrscr;
randomize;
Vvod(a,n,'A');
Vyvod(a,n,'Исходная матрица А:');
Trans(a,n);
Zamena(a,n);
Vyvod(a,n,'Транспонированная матрица А:');
Vvod(b,m,'B');
Vyvod(b,m,'Исходная матрица B:');
Trans(b,m);
Zamena(b,m);
Vyvod(b,m,'Транспонированная матрица B:');
readln
end.