Как реализовать двухмерный динамический массив с использованием механизма указателей

uses crt;
const nmax=20;
type Tmatr=array[1..nmax,1..nmax] of integer;
var a:^Tmatr;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
new(a);
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a^[i,j]:=10*i+j;
     write(a^[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to n div 2 do
for j:=1 to n do
 begin
  x:=a^[i,j];
  a^[i,j]:=a^[n-i+1,j];
  a^[n-i+1,j]:=x;
end;
writeln('Отражение по горизонтальной оси:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a^[i,j]:4);
  writeln;
 end;
dispose(a);
readln
end.

{$R-}
uses crt;
const nmax=20;
type
  Tmas=^TTmas;{одна строка матрицы}
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;{матрица-массив указателей на строки}
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  n,m,i,j,k:integer;
  f:boolean;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
getmem(a,sizeof(TTmatr)*n);{выделяем память под указатели на строки}
for i:=1 to m do
getmem(a^[i],sizeof(integer)*m);{для каждой строки память для хранения данных}
writeln ('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    repeat
    a^[i]^[j]:=random(50)-25;
    until a^[i]^[j]<>0;{создаем матрицу без нолей}
    write(a^[i]^[j]:4);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  j:=m;
  k:=0;
  while(j>=1)and(k=0) do
  if a^[i]^[j]<0 then k:=j
  else j:=j-1;
  if k<>0 then a^[i]^[j]:=0;{замена последнего отр. на 0}
  if k=m then f:=true; {если все}
 end;
writeln('Замена последних отрицательных в строках на 0');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a^[i]^[j]:4);
  writeln;
 end;
for i:=1 to n do
freemem(a^[i],sizeof(integer)*m); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmatr)*n); {потом указатели на них}
readln
end.