Количество различных символов в строке

[Pasha_Sh]

Помогите пожалуйста решить задачку. Необходимо получить количество не повторяющихся символов в слове. К примеру, если вводим "соло", программа должна вывести "2".

[BDA]

function f(s: string): integer;
var
  a: array[0..255] of integer;
  i, count: integer;
begin
  for i := 0 to 255 do
    a[i] := 0;
  for i := 1 to length(s) do
    inc(a[ord(s[i])]);
  count := 0;
  for i := 0 to 255 do
    if a[i] = 1 then
      inc(count);
  f := count;
end;

Большие и маленькие буквы считаются различными.
Или

function f(s: string): integer;
var
  a, b: set of char;
  i, count: integer;
begin
  a := [];
  b := [];
  count := 0;
  for i := 1 to length(s) do
    if not (s[i] in a) then
    begin
      inc(count);
      a := a + [s[i]];
    end
    else
    if not (s[i] in b) then
    begin
      dec(count);
      b := b + [s[i]];
    end;
  f := count;
end;

Update Исправлена ошибка, закравшаяся во второй вариант

[Mad_Cat]

как вариант)

var s,buf:string;
c:char;
begin
readln(s);
while s<>'' do
begin
c:=s[1];
delete(s,1,1);
if pos(c,s)=0 then buf:=buf+c;
while pos(c,s)<>0 do delete(s,pos(c,s),1);
end;
writeln(length(buf));
end.