Найти наибольший и наименьший по абсолютной величине элементы матрицы и поменять их местами

uses crt;
const nmax=100;
var a: array [1..nmax,1..nmax] of integer;
    i,j,imax,jmax,imin,jmin,n,m: byte;
    buf: integer;
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество толбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
writeln('Исходная матрица');
imax:=1; jmax:=1; imin:=1; jmin:=1;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);
        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[imax,jmax]:4,', в ',imax,' строке, в ',jmax,' столбце');
writeln('Минимальный  элемент=',a[imin,jmin]:4,', в ',imin,' строке, в ',jmin,' столбце');
buf:=a[imin,jmin];
a[imin,jmin]:=a[imax,jmax];
a[imax,jmax]:=buf;
writeln('Матрциа после перестановки');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
    end;
readln;
end.