Напечатать в алфавитном порядке все согласные буквы, которые не входят в каждое слово

[Rinat777]

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

сделайте пожалуйста проект на Delphi

[Alesia_Lesia]

var f[0..9] of boolean;
    i:integer;
    r:string;
begin
     for i:=0 to 9 do
         f[i]:=false;
     for i:=1 to Lenght(s) do
         case s[i] of
         'а','А':f[0]:=true;
         'е','Е':f[1]:=true;
         'ё','Ё':f[2]:=true;
         'и','И':f[3]:=true;
         'о','О':f[4]:=true;
         'у','У':f[5]:=true;
         'ы','Ы':f[6]:=true;
         'э','Э':f[7]:=true;
         'ю','Ю':f[8]:=true;
         'я','Я':f[8]:=true;
         end;
     r:='';
     if f[0] then r:=r+'а';
     if f[1] then r:=r+'е';
     if f[2] then r:=r+'ё';
     if f[3] then r:=r+'и';
     if f[4] then r:=r+'о';
     if f[5] then r:=r+'у';
     if f[6] then r:=r+'ы';
     if f[7] then r:=r+'э';
     if f[8] then r:=r+'ю';
     if f[9] then r:=r+'я';
     Result:=r;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Unique_Maks]

наконец-то, спустя почти 2 года, автор сдаст эту задачу

[ZX Spectrum-128]

а я девочке плюсик поставил. Какая умная девочка, подумал я. Какое нестандартное решение.

[Serge_Bliznykov]

Сообщение от Unique_Maks

наконец-то, спустя почти 2 года, автор сдаст эту задачу

не, не сдаст!

Напечатать в алфавитном порядке все согласные буквы, которые не входят в каждое слово

         'а','А':f[0]:=true;
         'е','Е':f[1]:=true;
         'ё','Ё':f[2]:=true;
         'и','И':f[3]:=true;
         'о','О':f[4]:=true;
         'у','У':f[5]:=true;
         'ы','Ы':f[6]:=true;
         'э','Э':f[7]:=true;
         'ю','Ю':f[8]:=true;
         'я','Я':f[8]:=true;

насколько я понимаю, это не совсем согласные буквы

про стиль кода я уже вообще молчу!
я бы вообще через множества написал решение.

[evg_m]

не, не сдаст!

ну и еще туда же

которые не входят в каждое слово

'а','А':f[0]:=true; это как бы другое. = ВХОДИТ хотя бы в одно слово.