[Pascal] Поменять местам элементы столбцов матрицы

Uses CRT;
 Type
     TMas = array  [1..1]  of Integer;
 Var M: ^TMas;
     N: Integer;
     PMem: Pointer;
     i,j,k: Integer;

Procedure DataIn;
Var i,j: Integer;
Begin Randomize;
 For i:=1 to n do
  For j:=1 to n do begin
   M^[((i-1)*N+j)]:=Random(100)-50;
  end;
End;

Procedure DataOut;
Begin
 For j:=1 to n do begin
  For i:=1 to n do begin
   Write(M^[((i-1)*N+j)]:4);
  end;
  WriteLn;
 end;
End;

Procedure Swap(Var A,B: Integer);
Begin
   A:=A-B;B:=A+B;A:=B-A;
   End;

Procedure SortCol;
Begin
   For j:=1 to n do begin
      For i:=1 to n do begin
         For k:=1 to n do begin

            If M^[((k-1)*N+i)]>M^[((j-1)*N+i)] Then Swap(M^[((k-1)*N+i)],M^[((j-1)*N+i)]);
         end;
      end;
   end;
End;

BEGIN ClrScr;
   Write('Введите размер массива N: '); Readln(N);
 Mark(PMem);
   GetMem(M, Sizeof(M^[1])*N*N);
   DataIn;
   DataOut;WriteLn;
   SortCol;
   DataOut;
   ReadLn;
 Release(PMem);
END.