Перемещение минимального элемента массива, путем перестановки строк и столбцов необходимо переместитть минимальны Опции

[HUNTER77]

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

uses crt;
const
n=6;
m=4;
type matrix =array [1..n , 1..m] of integer;
var
a:matrix;
i,j,min:integer;
begin
for i:=1 to n do
for j:=1 to m do begin
 a[i,j]:=random(100); end;
min:=a[1,1];
For i:=1 to n do begin
For j:=1 to m do          begin
If min> a[i,j] then
min:=a[i,j];          end;     end;
textcolor(green);
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j], '  ');
writeln;
end;
writeln;       textcolor (red);
writeln('минимальный элемент: ',min);
end.

никак не могу понять как это сделать ..очень прошу помочь..

[Lapp]

путем перестановки строк и столбцов необходимо переместитть минимальный элемент в правый нижний угол
...
никак не могу понять как это сделать ..очень прошу помочь..

При поиске минимума запоминай не значение, а индексы.
Вот так примерно (не самый эффекливный способ).

{ищем минимум}
  imin:=1;
  jmin:=1;
  For i:=1 to n do
    For j:=1 to m do
      If a[i,j] < a[imin,jmin] then begin
        imin:= i;
        jmin:= j
      end;

{переставляем столбцы}
  for i:=1 to n do begin
    b:= a[i,m];
    a[i,m]:= a[i,jmin];
    a[i,jmin]:= b
  end;

{переставляем строки}
  for j:=1 to m do begin
    b:= a[n,j];
    a[n,j]:= a[imin,j];
    a[imin,j]:= b
  end;