Двумерный динамический массив отсортировать по возрастанию

type tmas=array of array of integer;
var
i,j,c,d:integer;
 
procedure vvod(var a:tmas);
var i,j:integer;
begin
for i:=low(a) to high(a) do
for j:=low(a[i]) to high(a[i]) do
a[i,j]:=random(10);
end;
 
procedure vivod(var a:tmas);
var i,j:integer;
begin
for i:=low(a) to high(a) do
begin
for j:=low(a[i]) to high(a[i]) do
write(a[i,j]:4);
writeln;
end;
end;
 
Procedure sort(a:tmas);
var i,j,c,d,min,k1,k2,z:integer;
 
begin
 
for z := 0 to (high(a)*high(a[i])) do
for i := 0 to high(a) do
for j := 0 to high(a[i]) do
begin
 
 
if (j<>high(a[i])) then begin
if a[i,j+1]<a[i,j] then
begin
min:=a[i,j+1];
a[i,j+1]:=a[i,j];
a[i,j]:=min;
end;
  end
 
 else
     if (a[i+1,j]<a[i,j])and(i<>high(a)) 
      begin
       min:=a[i+1,1];
       a[i+1,1]:=a[i,j];
       a[i,j]:=min;
      end;
    end;
  end;
 
 
var a:tmas;
min,m,n,k1,k2,z:integer;
 
begin
randomize;
writeln('vvedite n:');
readln(n);
writeln('vvedite m:');
readln(m);
SetLength(a,n,m);
vvod(a);
vivod(a);
readln;
sort(a);
vivod(a);
readln;
writeln('min=', min, 'nomer=',k1,k2);
readln;
 
end.

procedure TForm1.Button2Click(Sender: TObject);
var a:array of array of integer; //динамический массив
    i,j,k,x:integer;
begin
Setlength(a,m,n);  //выделяем память под массив
for i:=0 to m-1 do  //счет идет с ноля
for j:=0 to n-1 do
a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);//строки и столбцы в матрице и таблице наоборот
for k:=1 to n*m do  {повторяем сколько элементов в матрице}
for i:=0 to m-1 do
for j:=0 to n-1 do
   begin
    if j<>n-1 then {если элемент в строке не последний}
      begin
       if a[i,j+1]>a[i,j]
       then
        begin  {обмен элементов}
         x:=a[i,j+1];
         a[i,j+1]:=a[i,j];
         a[i,j]:=x;
        end;
      end
    else if (i<>m-1)and(a[i+1,0]>a[i,j]) {если строка не последняя}
     {меняем первый элемент в следущей строке с последним элементом в текущей строке}
    then
      begin  {обмен элементов}
         x:=a[i+1,0];
         a[i+1,0]:=a[i,j];
         a[i,j]:=x;
       end;
   end;
for i:=0 to m-1 do //заносим в новую таблицу тоже наоборот
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
end;

type tmas=array of array of integer;
procedure vvod(var a:tmas);
var i,j:integer;
begin
for i:=low(a) to high(a) do
for j:=low(a[i]) to high(a[i]) do
a[i,j]:=random(50);
end;
procedure vivod(var a:tmas);
var i,j:integer;
begin
for i:=low(a) to high(a) do
 begin
  for j:=low(a[i]) to high(a[i]) do
  write(a[i,j]:4);
  writeln;
 end;
end;
Procedure sort(var a:tmas;x,y:byte); //укажем реальный размер матрицы
var i,j,z,min:integer;
begin
for z := 1 to x*y do
for i := 0 to high(a) do
for j := 0 to high(a[i]) do
 begin
  if j<>high(a[i]) then
   begin
    if a[i,j+1]<a[i,j] then
      begin
        min:=a[i,j+1];
        a[i,j+1]:=a[i,j];
        a[i,j]:=min;
      end;
  end
 else
  if (i<>high(a))and(a[i+1,0]<a[i,j])then
      begin
       min:=a[i+1,0];
       a[i+1,0]:=a[i,j];
       a[i,j]:=min;
      end;
 end;
end;
var a:tmas;
    n,m:integer;
begin
randomize;
writeln('vvedite n:');
readln(n);
writeln('vvedite m:');
readln(m);
SetLength(a,n,m);
vvod(a);
vivod(a);
readln;
sort(a,m,n);
vivod(a);
readln;
//writeln('min=', min, 'nomer=',k1,k2);
end.