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

uses  Crt;
const high = 20;
      low  = -20;
      n    = 6;
      k    = 6;
type
      massiv = array [1..n, 1..k] of integer;
var   A : massiv;
 
Procedure In_Mas(var m:massiv; phight, plow : integer);
          var i, j : byte;
          Begin
               Randomize;
               for i:=1 to n do
                   for j:=1 to k do
                       m[i,j]:=plow+Random(phight-plow+1);
          End;
 
Procedure Out_Mas(const m:massiv);
          var i, j : byte;
          Begin
               for i:=1 to n do
               begin
                    for j:=1 to k do
                        Write(m[i,j]:4);
                    WriteLn;
               end;
          End;
 
Procedure Sort(var m:massiv);
          var i, j, c, imin : byte;
              min : integer;
          Begin
               c:=2;
               While(c<=k) do
               begin
                   for j:=1 to n-1 do
                   begin
                        min:=m[j,c];
                        imin:= j;
                        for i:=j+1 to n do
                            if m[i,c]<min then
                            begin
                                 min:=m[i,c];
                                 imin:=i;
                            end;
                        m[imin,c]:=a[j,c];
                        m[j,c]:=min;
                   end;
                   c:=c+2;
               end;
          End;
 
BEGIN
     ClrScr;
     In_Mas(A, high, low);
     WriteLn('A1:');
     Out_Mas(A);
     Sort(A);
     WriteLn('A2:');
     Out_Mas(A);
END.