Сортировка динамического массива

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