Задача на множества

[Eisebio]

procedure TForm1.Button1Click(Sender: TObject);
Type setchar=set of char;
Const G: setchar = ['a'..'z'];
Var
res1,
res2,
res3,
mnsl:setchar;
st,slovo: string; ch: char;
i,k:integer; first: boolean;
procedure out_set(res:setchar;out:TListbox);
Const alf='qwertyuiopasdfghjklzxcvbnm';
Var i:integer;
Begin
  for i:=1 to length(alf) do
    if alf[i] in res then
      out.AddItem(alf[i],out)
end;

Begin
  listbox1.clear;

  st:=edit1.text;
  st:=st+' ';
  first:=true;
  while st<> '' do
  begin
    k:=pos(' ',st);
    slovo:=Copy(st,1,k-1);
    Delete(st,1,k);
    mnsl:=[];
    For i:=1 to k-1 do
      if slovo[i] in G then
      mnsl:=mnsl+[slovo[i]];
    if first then
    begin
      res1:=mnsl;
      res2:=mnsl;
      res3:=mnsl;
      first:=false;
    end
    else
    begin
      res1:=res1*mnsl;  
      res2:=res2+mnsl;  
    end
  end;

Задание на множества:Дан текст из строчных латинских букв,за которым следует точка.Вывести на экран дисплея все буквы,входящие в текст по одному разу.
Подскажите как множество задать,в котором будут именно буквы встречающиеся по одному разу.

[XuTpbIu]

ты просто не знаешь как сделать множество что ли?

[Stilet]

Я помоему выкладывал тут уже отсев индексами, ну вот :

  var a:array[ord('a')..ord('z')] of byte;
  s:string;i:integer;
begin
 s:='fsdnqpcfdfsdfsdfdsf';
 for i:=1 to length(s) do
  inc(a[ord(s[i])]);
 for i:=ord('a') to ord('z') do
  if a[i]=1 then
    write(chr(i));
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.