BubbleSort

function BubbleSort(array : TStringList) : TStringList;
var
    i, j: Integer;
    aux : String;
begin

  aux :='';

  for i:=0 to array.Count-1 do
  begin
    for j:=0 to array.Count-2 do
    begin
        if (StrToInt(Copy(array[j],1,1)) > StrToInt(Copy(array[j+1],1,1))) then
        begin
                aux := array[j];
                array[j] := array[j+1];
                array[j+1] := aux;
        end;
    end;
  end;

  Result := array;

end;