Ввести массив 4х6, найти максимальный элемент и вывести новый массив 4х6, где столбец с максимальным элементом будет наоборот — Pascal(Паскаль)

Например:
1 2 5 3
2 5 6 2
3 2 1 3
2 5 2 3
Макс=6
Результат:
1 2 2 3
2 5 1 2
3 2 6 3
2 5 5 3

const
  n = 4;

const
  m = 6;

var
  ar: Array [1 .. n, 1 .. m] of integer;
  i, j, col, max, c: integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  // zapolnyaem massiv
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      ar[i, j] := random(20);
  // vivodim iskhodnii massiv
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(ar[i, j], ' ');
    writeln;
  end;
  // poisk maksimalnogo elementa i nomera stolbtsa sootvetsvenno
  max := ar[1, 1];
  col := 1;
  for i := 1 to n do
    for j := 1 to m do
      if max < ar[i, j] then
      begin
        col := j;
        max := ar[i, j];
      end;
  // vivodim maksimalnii element i nomer stolbtsa
  writeln;
  writeln('max=', max);
  writeln('column=', col);
  writeln;
  // nu a teper znaya nomer stolbtsa menyaem poryadok elementov v nem
  for i := 1 to (n div 2) do
  begin
    c := ar[i, col];
    ar[i, col] := ar[n - i + 1, col];
    ar[n - i + 1, col] := c;
  end;
  // vivodim poluchennii massiv
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(ar[i, j], ' ');
    writeln;
  end;
  readln;

end.