динамическая матрица Опции

[compiler]

есть программка. она читает размеры матрицы, ее члены, печатает их, должна менять первый и последний столбик местами и опять печатает.

{$R-}
Type
  TType = Word; 
Type
  PVector = ^TVector;
  TVector = Array[1 .. 1] of TType;
  PDynMatrix = ^TDynMatrix;
  TDynMatrix = Array[1 .. 1] of PVector;

function max (const a:PVector):integer;
Var
	i: Word;
begin
	max:=0;
		For i := 1 To round(SizeOf(PVector) / SizeOf(TType)) Do
			if max< a^[i] then max:=a^[i];
end;


procedure ChPos(PV1, PV2:PVector);
var
	p:pointer;
begin
	p:=PV1;
	PV1:=PV2;
	PV2:=p;
end;
			
			
Var
  mxDynamic: PDynMatrix;
  n, m,i, j: Word;
Begin
	write ('m=');	ReadLn(m);{размеры}
	write ('n=');	ReadLn(n);//векторы
			
	GetMem(mxDynamic, m * SizeOf(PVector));{память}
	For i := 1 To n Do
		GetMem(mxDynamic^[i], n * SizeOf(TType));

	
	For i := 1 To n Do Begin{чтение}
		WriteLn;
		For j := 1 To m Do begin
			write (' a[',i,',',j,']=');
			ReadLn(mxDynamic^[I]^[J]);
		end;
	End;
	
	For i := 1 To n Do Begin{печать}
		WriteLn;
		For j := 1 To m Do begin
			write (' a[',i,',',j,']=');	
			WriteLn(mxDynamic^[I]^[J]:4);
		end;
	End;
	
	ChPos(mxDynamic^[1],mxDynamic^[n]);//МЕНЯЮ, а оно не меняется 

	
	For i := 1 To n Do Begin{печать}
		WriteLn;
		For j := 1 To m Do begin
			write (' a[',i,',',j,']=');	
			WriteLn(mxDynamic^[I]^[J]:4);
		end;
	End;
	readln;
	read;

	For i := 1 To m Do
		FreeMem(mxDynamic^[i], m * SizeOf(TType));
	For i := 1 To n Do
		FreeMem(mxDynamic, n * SizeOf(PVector));
End.

почему столбики не меняются местами?

заранее благодарен.