Вывести на экран дисплея в алфавитном порядке все буквы, которое входят в массив по одному разу

var
  s:string;
  i,j,c:integer;
begin
  readln(s);
  for i:=1 to Length(s) do
  begin
    c:=0;
    for j:=1 to Length(s) do
      if (s[i]=s[j]) and (i<>j) then
        inc(c);
    if c=0 then
      write(s[i])
  end;
  writeln
end.

var
  s:string;
  i,j,min,min1,max:integer;
  l:boolean;
begin
l:=true;
  readln(s);
  min:=1;
  max:=1;
  for i:=1 to Length(s) do
   if s[min]>s[i] then min:=i;
   if s[max]<s[i] then max:=i;
  write(s[min]);
 
while l do
begin
  min1:=max;
  for i:=1 to length(s) do
   if(s[min1]>s[i])and(s[i]>s[min]) then min1:=i;
  writeln(s[min1]);
  min:=min1;
  if min1=max    then l:=false;     
end;   
readln;    
end.

var
  s,res:string;
  i,j,c:integer;
  ch:char;
begin
  readln(s);
  res:='';
  for i:=1 to Length(s) do
  begin
    c:=0;
    if not(s[i] in ['a'..'z']) then
    begin
      writeln('Íåâåðíî çàäàííàÿ ñòðîêà!');
      exit
    end;
    for j:=1 to Length(s) do
      if (s[i]=s[j]) and (i<>j) then
        inc(c);
    if c=0 then
      res:=res+s[i]
  end;
  {ñîðòèðóåì}
  for i:=1 to Length(res)-1 do
    for j:=i+1 to Length(res) do
      if res[i]>res[j] then
      begin
        ch:=res[i];
        res[i]:=res[j];
        res[j]:=ch
      end;
  writeln(res)
end.