двумерный массив Паскаль

[LastBreath]

Описать процедуру, которая в заданной матрице размером n*m меняет местами строку, содержащую минимальный по величине элемент матрицы, со строкой, содержащей максимальный по величине элемент. Взять n=5, m=6.
Помогите, пожалуйста, с решением...очень нужно и как можно быстрее...прошу...

[fbus]

тогда стучись ко мне в аську

[ROMA2PVT]

////////////////////////////////////

[ROMA2PVT]

uses crt;
Const
 n=5;m=6;
Type
 a=array[1..n,1..m] of integer;
var
    i,j,imx,imn:integer;
    mn,mx,x:integer;
    k:a;
    
Procedure obmen(mas:a);
begin
  for i:=1 to n do
   begin
    x:=k[imn,i];
    k[imn,i]:=k[imx,i];
    k[imx,i]:=x;
   end;
  writeln;
  writeln('Обмен строк ',imn,' и ',imx);
  end;
  
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     k[i,j]:=random(20);
     write(k[i,j]:4);
    end;
   writeln;
 end;
imn:=1;
imx:=1;
mn:=k[1,1];
mx:=k[1,1];
for i:=1 to n do
for j:=1 to m do
 begin
  if k[i,j]<mn then
   begin
    mn:=k[i,j];
    imn:=i;
   end;
  if k[i,j]>mx then
   begin
    mx:=k[i,j];
    imx:=i;
   end;
 end;
writeln('Минимальный элемент=',mn,' в строке-',imn,' макимальный=',mx,' в строке-',imx);
if imx=imn then write('Минимальный и максимальный элементы в одной строке!')
else

Obmen(k);

for i:=1 to n do
   begin
    for j:=1 to m do
    write(k[i,j]:4);
    writeln;
   end;
end.