Вывести символы в порядке возрастания

{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
  i, t, z, k1, k2: integer;
begin
 s:=Edit1.Text;
 if Edit1.Text='' then
 begin
 Application.Title:='Ошибка';
 ShowMessage('Введите данные');
 end
 else
 begin
   t:=0;
for i:=1 to length(s) do
if s[i] = '.' then inc(t);
if (t=0) then
showmessage('Точек не найдено!') else
showmessage('Найдено точек: '+inttostr(t));
 end;
 begin
  z:=0;
for i:=1 to length(s) do
if s[i] = ',' then inc(z);
if (z=0) then
showmessage('Запятых не найдено!') else
showmessage('Найдено запятых: '+inttostr(z));
 end;
 begin
  k1 :=0;
   k2 :=0;
   for i:=1 to length(s) do
    begin
     If s[i]='(' then Inc(k1) Else
    If s[i]=')' then Inc(k2);
  end;
  If (k1=0) And (k2=0) Then
  ShowMessage('Скобок не найдено') Else
  ShowMessage('Найдено открывающихся скобок: '+inttostr(k1));
  ShowMessage('Найдено закрывающихся скобок: '+inttostr(k2));
 end;
end;