{$codepage utf8} {$mode objfpc} Uses sysutils, classes {$ifdef Linux},cwstring{$endif}; Var ListaCadenas:TStringList; Begin ListaCadenas:=TStringList.create; ListaCadenas.Add('Olgado'); ListaCadenas.Add('Carro'); ListaCadenas.Add('Arriba'); ListaCadenas.Sort; ListaCadenas.Sorted:=true; ListaCadenas.Add('Alegria'); ListaCadenas.Add('Zorro'); ListaCadenas.Add('Colorado'); Writeln(ListaCadenas.Text) End.