Ссылочный тип данных. Динамическая память

uses crt;
{$R-}
const n=4;
      m=5;
type
  Tmas=^TTmas;{один столбец матрицы}
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;{матрица-массив указателей на столбцы}
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  i,j,k:integer;
  x:integer;{буфер для обмена при сортировке}
begin
clrscr;
randomize;
getmem(a,sizeof(TTmas)*m*2);{выделяем память под указатели на столбцы}
{поскольку сортируем в двух циклах, нужно в 2 раза больше памяти}
for i:=1 to n do
getmem(a^[i],sizeof(integer)*n);{для каждого столбца память для хранения данных}
writeln ('Исходная матрица:');
for j:=1 to m do
for i:=1 to n do
a^[j]^[i]:=random(50);
 
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a^[j]^[i]:4);
  writeln;
 end;
write('Press Enter...');
readln;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if a^[i]^[j]<a^[i]^[k] then
  begin
   x:=a^[i]^[j];
   a^[i]^[j]:=a^[i]^[k]; {сортируем столбцы по возрастанию прямым обменом}
   a^[i]^[k]:=x;
  end;
writeln('Отсортированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a^[j]^[i]:4);
  writeln;
 end;
for i:=1 to n do
freemem(a^[i],sizeof(integer)*n); {освобождаем память в обратном порядке,
                                   сначала удалим столбцы}
freemem(a,sizeof(TTmas)*m*2); {потом указатели на них}
write('Press Enter...');
readln;
end.