множества(подскажите сам алгоритм)

[mishammm]

задача звучит: составить программу которая анализирует множество символов, которое заканчиваеться символом "точка". и вывести все согласные буквы. вот мой код:

var
   s := ['b','c', 'd', 'f'];
   symbol:char;
   begin
   repeat
     writeln('vvedi simvoli abo n dlya zavershenna');
     readln(symbol);
     s:=s+[symbol];
     until symbol = 'n';
     for symbol:= chr(0) to chr(255) do
     If (symbol='.')
     write(s,'');
     end.

но мне выводит все буквы и гласные и согласные . как сделать так чтобы выводило тольно согласные ???я пробывал в множестве задать только все согласные буквы в алфавите, а оно мне выводит все, а не те что я задал с клавы. мне код не нужно, просто на словах скажите плиз, как можно поправить.
P.S. была идея такова еще: создать еше одно множество с гласными буквами и писать так:

If (not symbol in q ) and (symbol in s) then

[mishammm]

попробывал удалить гласные буквы:

var
   s : string;
   symbol:char;
   i:integer;
   glas:set of char;
   begin
   glas:= ['a', 'e' , 'i', 'o', 'u', 'y'];
   repeat
     writeln('vvedi simvoli abo n dlya zavershenna');
     readln(symbol);
     If s[i] in glas then 
     Delete(s,i,1)
     else
     inc(i);
     glas:=glas+[symbol];
     until symbol = 'n';
     for symbol:= chr(0) to chr(255) do
     If (symbol = '.') then
     write(s,'');
     end.

но это наверно непраавильно

[mishammm]

сделал через const

const 
    q = ['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Y','Z',
           'b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z'];
var
    s:set of char;
   symbol:char;
   begin
   repeat
     writeln('vvedi simvoli abo n dlya zavershenna');
     readln(symbol);
     If symbol in q then
     s:=s+[symbol];
     until symbol = 'n';
     write(s,'');
     end.

вроде как...работает

[BDA]

http://ideone.com/4X0xJS

const 
  q = ['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Y','Z',
       'b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z'];
var
  s: set of char;
  c: char;
begin
  s := [];
  read(c);
  while c <> '.' do
  begin
    if c in q then
      s := s + [c];
    read(c);
  end;
  for c := 'A' to 'z' do
    if c in s then
      write(c);
end.

[mishammm]

та ладно, спасибо главное что работает. а что это такое?

 for c := 'A' to 'z' do
    if c in s then
      write(c)

;
чисто для интереса? и можно это добавить в мой код??

[BDA]

Паскаль не может вывести сам множество (Turbo Pascal, Free Pascal), поэтому приходится перебрать все буквы (и еще пару лишних символов), чтобы вывести содержимое множества. PascalABC с его наворотами слишком далек от "канонического" паскаля.