Заменить минимальный элемент каждой строки матрицы максимальным элементом соответствующего столбца

Const nmax=10;
var a,a1,a2,a3,a4:array[1..nmax,1..nmax] of integer;
i,j,n,m,jmin,jmax,imax: integer; 
begin
  n:=3;
 m:=4;
writeln('Матрица:');
for i:=1 to n do begin 
for j:=1 to m do begin 
a[i,j]:=random(-5,19); 
write(a[i,j]:4);
a1 := a;
a2:=a;
a3:=a;
a4:=a; 
end;
writeln();
end;
for j:=1 to m do begin
  imax:=1;
  for i:=2 to n do
  if A[i,j]>A[imax,j] then imax:=i   
end;
  
writeln('Задание 1');
writeln('Замена минимального элемента каждой строки максимальным элементом соответствующего столбца');
 
for i:=1 to n do
begin
jmin:=1;
for j:=2 to m do
if A[i,j]<A[i,jmin] then jmin:=j; 
 
A[i,jmin]:=A[imax,j];
end;
 
  Writeln('Обработанная матрица');
  for i:=1 to n do
  begin
    for j:=1 to m do Write(A[i,j]:4);
    Writeln;
  end;
end.

var a:array[1..10,1..10] of real;
    b:array[1..10,1..2] of integer;//массив индексов элементов для обмена
    n,m,i,j,k,jmn,imx:integer;
    x:real;
begin
repeat
writeln('Введите количество строк от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
writeln('Введите количество столбцов от 2 до 10 m=');
readln(m);
until m in [2..10];
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  jmn:=1;
  for j:=2 to m do
  if a[i,j]<a[i,jmn] then jmn:=j;
  b[i,2]:=jmn;//номер столбца
  imx:=1;
  for k:=2 to n do
  if a[k,jmn]>a[imx,jmn] then imx:=k;
  b[i,1]:=imx; //номер строки
 end;
for i:=1 to n do
 begin
  x:=a[i,b[i,2]];
  a[i,b[i,2]]:=a[b[i,1],b[i,2]];
  a[b[i,1],b[i,2]]:=x;
 end;
 writeln('Обмен минимальных элементов строк и максимальных элементов столбцов');
 for i:=1 to n do
  begin
   for j:=1 to m do
   write(a[i,j]:6:2);
   writeln;
  end;
end.