Поменять местами в матрице строки, содержащие MIN и MAX элементы

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of real;
    i,j,n,m,imax,jmax,imin,jmin: byte;
    buf:real;
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
imax:=1; jmax:=1;
imin:=1;jmin:=1;
writeln('Исходная матрица');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=199*random-99;
        write(a[i,j]:6:1);
        if a[i,j]<a[imin,jmin] then
           begin
           imin:=i; jmin:=j;
           end;
        if a[i,j]>a[imax,jmax] then
           begin
           imax:=i; jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Мин.  элемент равен ',a[imin,jmin]:6:1,', в строке ',imin,', в столбце ',jmin);
writeln('Макс. элемент равен ',a[imax,jmax]:6:1,', в строке ',imax,', в столбце ',jmax);
if imin=imax then writeln('Обмен невозможен, мин. и макс. в одной строке') else
   begin
   for j:=1 to m do
       begin
       buf:=a[imin,j];
       a[imin,j]:=a[imax,j];
       a[imax,j]:=buf;
       end;
   writeln('Матрица после обмена');
   for i:=1 to n do
       begin
       for j:=1 to m do
           write(a[i,j]:6:1);
       writeln;
       end;
   end;
readln;
end.