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

program Project40;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
a:array[1..100,1..100]of integer;
st,xmax,xmin:array[1..100] of integer;
max,min:integer;
c,b,k,n,m,i,j:integer;
begin
writeln('введите размеры матрицы');
read(m,n);
writeln('введите матрицу');
for i:=1 to n do begin
for j:=1 to m do
read(a[i,j]);
  readln;
end;
writeln;
 
writeln('исходная матрица');
 
  for i:=1 to n do begin
    for j:=1 to m do
       write(a[i,j]:3);
    writeln;
  end;
  writeln;
 
 
 
writeln;
 max:=a[1,1];
 min:=a[1,1];
    for i:=1 to n do begin
for j:=1 to m do  if a[i,j]<min then min:=a[i,j]; xmin[i]:=min;
                   if a[i+1,j]>max then max:=a[i+1,j]; xmax[i]:=max;
                                                   end;
  for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>max then max:=a[i,j]; xmax[i]:=max;
       end;
     for i:=1 to n do begin
        for j:=1 to m do   if a[i,j]=xmin[i] then st[i]:=a[i+1,j];
     end;
    for i:=1 to n do begin
        for j:=1 to m do  if a[i+1,j]=xmax[i+1] then a[i+1,j]:=st[i];
    end;
    for i:=1 to n do begin
        for j:=1 to m do   if a[i,j]=xmin[i] then a[i+1,j]:=xmax[i+1];
     end;
 
     for i:=1 to n do begin
for j:=1 to m do  write(a[i,j]:3,' ');
writeln;
  end;
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.