Составить процедуру упорядочения одномерного массива по возрастанию

uses crt;
const nmax=20;
type mas=array[1..nmax,1..nmax] of integer;
procedure inmatrix(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   x[i,j]:=-10+random(21);
end;
procedure print(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(x[i,j]:4);
    writeln;
  end;
end;
procedure sortstr(var x:mas;n:integer);
 var i,j,tmp,k:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     tmp:=x[i,j];
     k:=j;
      while (k>1) and (tmp<x[i,k-1]) do
       begin
        x[i,k]:=x[i,k-1];
        dec(k);
       end;
      x[i,k]:=tmp;
    end;
  end;
end;
procedure sort(var x:mas;n:integer);
 var i,j,tmp,k:integer;
begin
 for j:=1 to n do
  begin
   for i:=1 to n do
    begin
     tmp:=x[i,j];
     k:=i;
      while (k>1) and (tmp<x[k-1,j]) do
       begin
        x[k,j]:=x[k-1,j];
        dec(k);
       end;
      x[k,j]:=tmp;
    end;
  end;
end;
var a:mas;
    n:integer;
begin
 clrscr;
  repeat
   write('Ïîðÿäîê ìàòðèöû n=');
   readln(n);
  until n in [1..nmax];
  writeln('Ìàòðèöà :');
  inmatrix(a,n);
  print(a,n);
  writeln('Ñîðòèðîâêà ïî ñòðîêàì ');
  sortstr(a,n);
  print(a,n);
  writeln('Ñîðòèðîâêà ïî ñòîëáöàì ');
  sort(a,n);
  print(a,n);
 readkey;
end.