В матрице поменять местами ...

uses crt;
const nmax=20;
type mas=array[1..nmax] of real;
     matr=array[1..nmax] of mas;
procedure Obmen(var v1,v2:array of real);
var i:byte;
    x:real;
begin
for i:=0 to high(v1)do
 begin
  x:=v1[i];
  v1[i]:=v2[i];
  v2[i]:=x;
 end;
end;
procedure Trans(m1:matr;x,y:byte;var m2:matr);
var i,j:byte;
begin
for i:=1 to y do
for j:=1 to x do
m2[i,j]:=m1[j,i];
end;
procedure Vyvod(var mt:matr;x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:5:2);
  writeln;
 end;
writeln;
end;
var a,b:matr;
    n,m,i,j,imn,jmn,imx,jmx:byte;
    mn,mx,x:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=9*random;
writeln('Исходная матрица:');
Vyvod(a,n,m);
writeln;
mn:=a[1,1];imn:=1;jmn:=1;
mx:=mn;imx:=1;jmx:=1;
for i:=1 to n do
for j:=1 to m do
 begin
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    imn:=i;
    jmn:=j;
   end;
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
    jmx:=j;
   end;
 end;
writeln('Минимальный  элемент a[',imn,' ',jmn,']=',a[imn,jmn]:0:2);
writeln('Максимальный элемент a[',imx,' ',jmx,']=',a[imx,jmx]:0:2);
writeln;
writeln('Обмен строк:');
Obmen(a[imn],a[imx]);
Vyvod(a,n,m);
write('Press Enter...');
readln;
{обмен столбцов}
{транспонирование матрицы}
Trans(a,n,m,b);
Obmen(b[jmn],b[jmx]);
{транспонирование матрицы}
Trans(b,m,n,a);
writeln('Обмен столбцов');
Vyvod(a,n,m);
readln
end.