Определить максимальный и минимальный элементы матрицы и поменять их местами

const
  n=7;
  m=9;
var
  a: array[1..n,1..m] of integer;
  i,j,min,max,i_max,j_max,i_min,j_min,tmp: integer;
begin
  {Инициализируем и выводим массив на экран}
  randomize;
  writeln('Исходный массив:');
  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);
    end;
    writeln;
  end;
  writeln;
  
  {Находим наименьшее и наибольшее}
  for i:=1 to n do
    for j:=1 to m do
    begin
      if a[i,j]>max then 
      begin
        max:=a[i,j];
        i_max:=i;
        j_max:=j;
      end;
      if a[i,j]<min then
      begin
        min:=a[i,j];
        i_min:=i;
        j_min:=j;
      end;
    end;
  writeln('Наибольший элемент: ',max,'[',i_max,',',j_max,']');
  writeln('Наименьший элемент: ',min,'[',i_min,',',j_min,']');
  
  {Производим обмен}
  tmp:=a[i_max,j_max];
  a[i_max,j_max]:=a[i_min,j_min];
  a[i_min,j_min]:=tmp;
  
  {Выводим преобразованный массив}
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.