Procedure Ordenar(A:LNaturales); Var i,j:longword; aux:qword; IniLista:boolean; Begin for i:=low(A)+1 to high(A) do Begin aux:=A[i]; j:=i-1; IniLista:=false; While (not IniLista) and (aux0 then j-=1 else IniLista:=true End; if IniLista then A[j]:=aux else A[j+1]:=aux End; End;