Если мин элементы столбцов находятся над главной диагональю, то поменять местами макс и мин элементы

const
  n = 4;
  m = 4;
 
var
  A: array[1..n, 1..m] of integer;
  mn, mx, buf, imin, jmin, min, i, j: integer;
  flag, sol: boolean;
 
begin
  writeln('Матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      A[i, j] := -n * m div 2 + random(n * m);
      write(A[i, j]:6);
    end;
    writeln;
  end;
  flag := false;
  sol := true;
  writeln('Минимальные элементы столбцов, расположенные выше главной диагонали (включая): ');
  for j := 1 to m do
  begin
    min := A[1, j];
    for i := 2 to n do
      if (A[i, j] < min)  then 
      begin
        min := A[i, j];
        jmin := j;
        imin := i;
      end;
    flag := imin <= jmin;  
    sol := flag and sol;
    write(min:6);
    //write(flag:6);
  end;
  writeln;
  //writeln(sol:6);
  //sol := true;
  if sol then //замена
  begin
    for i := 1 to n do
    begin
      mn := 1;
      mx := 1;
      for j := 1 to m do
      begin
        if a[i, j] < a[i, mn] then 
          mn := j;
        if a[i, j] > a[i, mx] then 
          mx := j;
      end;
      buf := a[i, mn];
      a[i, mn] := a[i, mx];
      a[i, mx] := buf;
    end;
    writeln('Измененная матрица:');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(a[i, j]:6);
      writeln;
    end;
  end;
end.