Подскажите решение в Паскале плиз

[Igomax]

Определить число различных, не повторяющихся в заданном текст букв

[Sazary]

Ну раз паскаль, то делайте через множества.
Заводите пустое множество, например, A.
Идете по тексту. Для текущей буквы проверяете, есть ли она в A. Если нет, то включаете ее туда и увеличиваете счетчик, если есть, то идете дальше.

[Igomax]

Сообщение от Sazary

Ну раз паскаль, то делайте через множества.
Заводите пустое множество, например, A.
Идете по тексту. Для текущей буквы проверяете, есть ли она в A. Если нет, то включаете ее туда и увеличиваете счетчик, если есть, то идете дальше.

Вот что у меня получается. А как написать условие что элемент S[i] не принадлежит множеству А??????

program ss;
var S:string;
a: set of char;
i,k,j:integer;
begin
write ('bbedite stroky'); writeln;
Readln(s); a:=[ ]; k:=0;
for i:=1 to length(s) do
if S[i] in A then begin include (A,S[i]); k:=k+1; end;
writeln (k);
end.

[Sazary]

if not (S[i] in A) then

остальное правильно..

[Igomax]

Спасибо огромное!!!
И ещо вопрос в задаче сказано сколько различных букв а он считает и остальные символы как это сделать

[Sazary]

if not (S[i] in A) and (s[i] in ['A'..'Z','a'..'z']) then