{$codepage utf8} UNIT Cadenas; INTERFACE PROCEDURE Ordenar(Var lista:array of integer);overload; IMPLEMENTATION PROCEDURE Ordenar(Var lista:array of integer); Var i,j:longint; aux:integer; Begin For i:=1 to High(lista) do Begin aux:=lista[i]; j:=i-1; While ( (j>=0) and (lista[j]>aux) ) do Begin lista[j+1]:= lista[j]; j := j - 1; End; lista[j+1]:=aux; End; End; END.