Напечатать в Алфавитном порядке все различные строчные буквы

var
s:string;
t:char;
 
i,j:integer;
begin
writeln('vvedite stroku');
readln(s);
for i:=1 to length(s) do
for j:=2 to length(s) do
if s[j]<s[j-1]then
begin
t:=s[j];
s[j]:=s[j-1];
s[j-1]:=t;
end;
for i:=1 to length(s) do
if (s[i]<>s[i-1])then write(s[i]);
readln;
end.

var  
 C: set of char;                                                 
 S: string;                                                            
 i: byte;                                                           
 j: char;                                                    
begin                                                         
 C:=[];                                                          
 writeln('input string');                                    
 readln(S);                                                          
 For i:=1 to length(S) do                                                 
  if (S[i] in ['a'..'z'])and not (S[i] in C) then C:=C+[S[i]];            
 writeln('Result:');                                           
 For j:='a' to 'z' do                                            
  if j in C then write(j,' ');                                
 writeln;                                                       
 readln;                                                                    
end.