Поменять строку, содержащую минимальный элемент на строку, содержащую максимальный элемент

uses
  crt;
 
var
  i, j, i_mx, i_mn: byte;
  min, max: integer;
  a: array [1 .. 6, 1 .. 8] of integer;
  b: array [1 .. 8] of integer;
 
begin
  randomize;
  writeln('Исходный массив: ');
  for i := 1 to 6 do
  begin
    for j := 1 to 8 do
    begin
      a[i, j] := random(20) - 10;
      write(a[i, j], ' ');
    end;
    writeln;
  end;
 
  writeln;
 
  min := a[1, 1];
  max := a[1, 1];
  i_mn := 1;
  i_mx := 1;
 
  for i := 1 to 6 do
    for j := 1 to 8 do
      if a[i, j] > max then
      begin
        max := a[i, j];
        i_mx := i;
      end
      else if a[i, j] < min then
      begin
        min := a[i, j];
        i_mn := i;
      end;
 
  writeln('Строка номер ', i_mx, ' содержит максмиальный элемент (', max, ')');
  writeln('Строка номер ', i_mn, ' содержит минимальный элемент (', min, ')');
 
  writeln;
 
  for j := 1 to 8 do
  begin
    b[j] := a[i_mn, j];
    a[i_mn, j] := a[i_mx, j];
    a[i_mx, j] := b[j];
  end;
 
  writeln('Конечный массив:');
  for i := 1 to 6 do
  begin
    for j := 1 to 8 do
      write(a[i, j], ' ');
    writeln;
  end;
 
  readln;
 
end.