Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово — Pascal(Паскаль)

program st;
uses crt;
 const
  A=['А','а','У','у','Е','е','О','о','Э','э','Я','я','И','и','Ю','ю','Ы','ы'];
  var
  s:string;
   i:integer;
    B: set of char;
     j: char;
  BEGIN
  writeln('input text');
   readln(s);
     B:=[];
      for i:=1 to length(s) do
        if s[i] in A then B:=B+[s[i]];
 
    writeln('В тексте встретились:');
      writeln;
      for j:='А' to 'я' do
     if j in B then writeln(j);
 
    END.