Дано предложение. Вывести все согласные, которых нет ни в одном слове.

[maxwelln1]

Дано предложение. Вывести все согласные, которых нет ни в одном слове.
Написать с использованием подпрограмм. Заранее БОЛЬШОЕ спасибо.

[digitalis]

Язык предложения - русский, английский или древнезулусский ? Литеры прописные и строчные ?
Щательнее вопросы надо задавать, щательнее

[newerow1989]

var s:string;
    i:integer;
    c:char;
    p:set of char;
begin
   Write('s = '); Readln(s);
   p:=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
   For i:=1 to Length(s) do
      p:=p-[LowerCase(s[i])[1]];
   For c:='a' to 'z' do
      If c in p then
         Write(c);
   Readln;
end.

Аналогично и с русскими словами

[maxwelln1]

Спасибо большое! Только вот мне бы этот код на процедуры/функции разбить.
И без LowerCase, там примитивная задача без заглавных и строчных. Можно считать, что все строчные или все заглавные будут.

[maxwelln1]

Ваша программа почему-то не компилируется, я решил все-таки вот так написать, но теперь надо ее разбить на процедуры или функции

var s:string;
    i:integer;
    c:char;
    p:set of char;
begin
   Write('s = '); Readln(s);
   p:=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
   For i:=1 to Length(s) do
     exclude(p, s[i]);
   For c:='a' to 'z' do
      If c in p then
         Write(c);
   Readln;
end.

[digitalis]

Такую простую прогу - и еще разбить ? Фантастика ... Ну так разбей на 3 : ввод, обработка, вывод