{$codepage UTF8} 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; PROCEDURE Ordenar(Var lista:array of string); Var i,j:longint; aux:string; 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; VAR lista01:array [1..10] of integer = (10,15,12,14,11,8,1,5,10,20); lista02:array [1..5] of string = ('Jose','Ana','Marie','Carlos','Luis'); i : integer; BEGIN Ordenar(lista01); Ordenar(lista02); for i:=1 to 10 do Writeln(lista01[i]); for i:=1 to 5 do Writeln(lista02[i]); END.