Напечатать все буквы входящие в текст по одному разу - Pascal
Прошу помоч. Очень надо. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы входящие в текст по одному разу.
Код:
var c:char;
s,sd:set of char;
begin
s:=[ ]; {инициализация множества входных символов}
sd:=[ ]; {инициализация множества повторяющихся символов}
repeat
read(c);
if c in s then
sd:=sd+[c] {накопление множества повторяющихся символов}
else s:=s+[c]; {накопление множества всех символов}
until c='.';
s:=s-sd-['.']; {получение множества неповторяющихся символов}
for c:=#33 to #255 do
if (c in s) then
write(c:3);
end.
