Поменять местами первый максимальный и последний минимальный элементы массива

uses crt;
var
 a:array[1..100,1..100]of integer;
 i,j,n,m,max,min,imax,jmax,imin,jmin:integer;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   write('m=');
   read(m);
   for i:=1 to n do
   for j:=1 to m do
    a[i,j]:=random(10);
   writeln;
   for i:=1 to n do
    begin
       for j:=1 to m do
        write(a[i,j],'  ');
       writeln;
    end;
   max:=a[1,1];
   min:=a[1,1];
   imax:=1; jmax:=1;
   imin:=1; jmin:=1;
   for i:=1 to n do
   for j:=1 to m do
    begin
     if a[i,j]>max then
      begin
         max:=a[i,j];
         imax:=i;
         jmax:=j;
      end;
     if a[i,j]<=min then
      begin
         min:=a[i,j];
         imin:=i;
         jmin:=j;
      end;
    end;
   writeln;
   writeln('a[',imax,',',jmax,']=',max);
   writeln('a[',imin,',',jmin,']=',min);
   writeln;
   for i:=1 to n do
   for j:=1 to m do
    begin
       if (i=imax)and(j=jmax) then a[i,j]:=min;
       if (i=imin)and(j=jmin) then a[i,j]:=max;
    end;
   for i:=1 to n do
    begin
       for j:=1 to m do
        write(a[i,j],'  ');
       writeln;
    end;
   readkey;
end.