const m=5; n=4;
var 
a:array[1..m,1..n] of integer;
i,j,max,min,imax,imin,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,1]; imax:=1;
min:=a[1,1]; imin:=1;
for i:=1 to m do
 for j:=1 to n do
  begin
  if a[i,j]>max then begin max:=a[i,j]; imax:=i; end;
  if a[i,j]<min then begin min:=a[i,j]; imin:=i; end;
  end;
writeln('imax = ',imax,'  imin = ',imin);
for j:=1 to n do
 begin
 c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c;
 end;
writeln('Полученный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  23  24  49  40
  40  38   5  33
  32  15  48  37
  20  18  36  15
  14  11   0   1
imax = 1  imin = 5
Полученный массив:
  14  11   0   1
  40  38   5  33
  32  15  48  37
  20  18  36  15
  23  24  49  40