Поменять местами максимальные элементы 1 и 3 столбцов и минимальные элементы 2 и 4 строки матрицы

var
  a: array [1..4, 1..4] of Integer;
  i, j, max1, max2, imax1, imax2, min1, min2, imin1, imin2: Integer;
  
begin
  randomize;
  for i := 1 to 4 do
    for j := 1 to 4 do
      a[i, j] := random(20);
  writeln('Массив до');
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
      write(a[i, j]:4);
    writeln;
  end;
  max1 := a[1, 1];
  imax1 := 1;
  for i := 2 to 4 do
    if max1 < a[1, i] then
    begin
      max1 := a[1, i];
      imax1 := i;
    end;
  max2 := a[3, 1];
  imax2 := 1;
  for i := 2 to 4 do
    if max2 < a[3, i] then
    begin
      max2 := a[3, i];
      imax2 := i;
    end;
  a[1, imax1] := max2;
  a[3, imax2] := max1;
  min1 := a[2, 1];
  imin1 := 1;
  for i := 2 to 4 do
    if min1 > a[2, i] then
    begin
      min1 := a[2, i];
      imin1 := i;
    end;
  min2 := a[4, 1];
  imin2 := 1;
  for i := 2 to 4 do
    if min2 > a[4, i] then
    begin
      min2 := a[4, i];
      imin2 := i;
    end;
  a[2, imin1] := min2;
  a[4, imin2] := min1;  
  writeln('Массив после');
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
      write(a[i, j]:4);
    writeln;
  end;
end.