code pascal giups minh voi

uses crt;
var s:string;
t:char;
i,j:integer;
begin
assign(input,'KTT.inp');
reset(input);
assign(output,'KTT.out');
rewrite(output);
readln(s);
//while pos(' ',s)<>0 do delete(s,pos(' ',s),1); nếu đề yêu cầu xoá ký tự trống thì bỏ dấu // ở đầu và xoá câu này đi là dc
for i:=1 to length(s)-1 do
for j:=i+1 to length(s) do
 if s[i]>s[j] then
 begin
  t:=s[i];
  s[i]:=s[j];
  s[j]:=t;
 end;
i:=1;
while i<=length(s) do
begin
 write(s[i]);
 while s[i]=s[i+1] do i:=i+1;
 i:=i+1;
end;
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var s, res: string;
    i, j: longint;
begin
    assign(input,'KTT.INP'); reset(input);
    assign(output,'KTT.OUT'); rewrite(output);
    readln(s);
    res := '';
    for i := 1 to length(s) do
         begin
        if pos(s[i],res) = 0 then
        res := res + s[i];
         end;
    for i := 32 to 126 do
        for j := 1 to length(res) do
            if ord(res[j]) = i 
               then write(res[j]);
    close(input);close(output);
end.