Текст.

[AL1990]

Ребят помогите найти ошибку.
{Дан текст на русском языке. Напечатать в
алфавитном порядке все гласные буквы,
которые не входят более чем в одно слово}

uses
crt;

var
sv:set of char;
sc,s:string;
i,j:byte;
b:char;

begin

sv:=['у','е','о','а','я','и','ю','э'];

write('-->');readln(sc);

for i:=1 to length(sc) do
if ( sc[i] in sv )
then
if pos(sc[i],s)=0
then s:=s+sc[i]
else sv:=sv-[sc[i]];

for i:=1 to length(s) do
for j:=i to length(s) do
if s[i]>s[j] then begin b:=s[i];s[i]:=s[j];s[j]:=b; end;

for i:=1 to length(s) do
if s[i] in sv then write(s[i]);

end.
Программа не выводит гласные которые встречаются даже в одном слове,а должна не выводить только те которые встречаются в разных.
Помогите пожалуйста.

[interxor]

Во первых слова разделяются пробелами, слов несколько. не видно чтобы это учитывалось. во вторых все глюки изза несовпадения кодировки. поменяй

sv:=['у','е','о','а','я','и','ю','э'];

на

sv:=['г','Ґ','®','*','п','Ё','о','н'];

будет от чего оттолкнуться)