Отсортировать в двумерном массиве четные столбцы по возрастанию

const mi = 10; mj = 19;
 
procedure rd_q(var x: integer; mx: integer; p: string);
begin
  repeat
    write(p, ' = ');
    readln(x);
    if (x < 2) or (x > mx) then writeln(p, ' out of range 2..', mx, ', reenter.')
  until (x >= 2) and (x <= mx)
end;
 
var a: array [1..mi, 1..mj] of integer;
    i, j, k, m, n, ti, t: integer;
 
procedure prn(p: string);
var i, j: integer;
begin
  writeln(p);
  for i := 1 to n do
    begin
      for j := 1 to m do write(a[i, j]:4);
      writeln
    end
end;
 
begin
  randomize;
  rd_q(m, mj, 'M');
  rd_q(n, mi, 'N');
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := 99 - random(199);
  prn('Source array:');
  for j := 1 to m div 2 do
    for i := 1 to n - 1 do
      begin
        ti := i;
        for k := i to n do
          if a[ti, 2 * j] > a[k, 2 * j]
            then ti := k;
        if ti > i
          then begin
            t := a[ti, 2 * j];
            a[ti, 2 * j] := a[i, 2 * j];
            a[i, 2 * j] := t
          end
      end;
  prn('Even columns are sorted by increase:');
  readln
end.