{$codepage utf8} USES Enteros,Cadenas; 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.