Записи в Паскале

[Alina111]

Дан текст, заканчивающийся точкой. Вывести первые вхождения каждой латинской буквы.

[Mad_Cat]

var i:integer;s:string;sc:set of char;
begin
readln(s);
sc:=['A'..'Z','a'..'z'];
for i:=1 to length(s) do
if s[i] in sc then 
begin
write(s[i],'  ');sc:=sc-[s[i]];
end;
end.