паскаль (множества)

[masterlomaster]

Сделать только через множетва.
Например пользователь воодит строку 'Privet'
Нужно вывести на экран все гласные буквы.
Я столкнулся с такой проблемой,

 s:=[];
    readln(c);
            s:=s+[c];

получается если так воодить, то как бы будет один элемент множества 'Privet' и когда я начну сравнивать с гласными буквами, то ничего хорошего не будет.
Не подскажите как вот этот элемент множества 'Privet' разбить 'P' первый, 'r' второй и так далее или подсчитать что ли кол-во как то.

[Stilet]

if s[i] in ['а','е', и так далее буквы через запятую] then вывести s[i]

[masterlomaster]

я так понимаю s[i] тип string?

S же у меня равно S[Privet] один элемент в множестве.

Как вот этот Privet разбить на элементы 'p' первый 'r' второй и так далее или может еше какие нибуть хитрости есть?

или это задание невозможно сделать только через множества? без типа string не обойтись?

[Arigato]

Вводится строка. Проходим по всем символам строки, если символ - гласная буква, то выводим.

[masterlomaster]

аригато, через string я знаю как сделать, именно через множество как?

[Serge_Bliznykov]

Как вот этот Privet разбить на элементы 'p' первый 'r' второй и так далее или может еше какие нибуть хитрости есть?

да никаких хитростей, просто проходите по строке, берите по одному символу и проверяйте. и всё:

Const
 GlasnyeBukvy : set of char =
 ['а','е','и','о','у','ы','э','ю','я',
  'А','Е','И','О','У','Ы','Э','Ю','Я'];

var i : integer;
    s : string;
begin
  s := 'Привет от старых штиблет';
  for i:=1 to Length(s) do
    if s[i] in GlasnyeBukvy then Write(s[i],' ');

Пока писал пример - уже написали кучу постов...

через string я знаю как сделать, именно через множество как?

Так. Начните сначала - определитесь, КАК и куда Вы введёте Ваш "Привет"
Потом, от этого и пляшите..

[masterlomaster]

Спасибо, как я понял чисто через множество это сделать не реально, ну что ж будем сориться с преподавателем

[Serge_Bliznykov]

Спасибо, как я понял чисто через множество это сделать не реально, ну что ж будем сориться с преподавателем

не торопитесь ссориться...

Если вопрос ставить принципиально. То можно:
задать исходный текст в виде множества:

var ss : set of char;
begin
   ss := ['П','р','и','в','е','т'];

а можно по другому, можно вводить по одному символу и проверять, гласная или нет (тип string тоже не будет зайдействоваться)...

Ключевой вопрос, как я и писал в прошлом своём сообщении - как вводится исходная информация...