Вывести все согласные буквы строки

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

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

program pro8;
var
 s: string;
 glas: set of char;
 i: integer;
begin
 glas:= ['a','o','i','u','y','e'];
 writeln('Vvedite stroku: ');
 readln(s);
 i:= 1;
 repeat
  begin
   if s[i] in glas then
    Delete(s,i,1)
   else inc(i);
  end;
 until i = Length(s);
 writeln('Ispravlennui stroku: ', s);
 readln;
end.

program bb;
 
const b = ['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 i: integer;
    s: string;
 
begin
  writeln('Enter string:');
  readln(s);
  writeln('Result:');
  for i := 1 to length(s) do if s[i] in b then write(s[i]); //та самая строка
  readln
end.

program bb;
 
const b = ['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: string;
    c: char;
 
begin
  s := '';
  writeln('Enter symbols, "." to end:');
  repeat
    readln(c);
    if c in b then s := s + c
  until c = '.';
  writeln('Result:');
  writeln(s);
  readln
end.

program bb;
 
const b = ['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 i: integer;
    s: set of char;
    c: char;
 
begin
  s := [];
  writeln('Enter symbols, "." to end:');
  repeat
    readln(c);
    if c in b then s := s + [c]
  until c = '.';
  writeln('Result:');
  for i := 0 to 255 do if char(i) in s then write(char(i));
  readln
end.