Как создать динамическую матрицу n*m

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

type
  mas=array[1..100] of real;
  matr=array[1..1] of mas;
var
  x:^matr;
  i,j,n,m:integer;
begin
  writeln('N');
  readln(n);
  writeln('M');
  readln(m);
  for i:=1 to n do
    new(x);
  for i:=1 to n do
    for j:=1 to m do
      read(x^[i,j]);
    writeln('                                        Њ*ваЁж*');
    for i:=1 to n do
      begin
        for j:=1 to m do
        write(x^[i,j]:6:2,'');
        writeln;
      end;
 
end.