множества, вывод гласных и согласных букв Опции

[shyrik]

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

я правильно начинаю прогу??и веду подсчёт гласных букв??

Program bukvi;
const r=ord('а')-ord('А');
var m:set of 'а'..'я';
    sl:array[1..50] of string;
    s:string;
    i,k,l:integer;
    c:char;
begin m:=['а','е','ё','и','о','у','ы','э','ю','я']
      write('введите текст на русском языке:');
      readln(s);

      writeln('Вот эти буквы:');
      for c:='а' to 'я' do if c in m then write( с );
      writeln

Сообщение отредактировано: shyrik - 13.01.2005 22:44

[shyrik]

верно, но мне надо ещё сделать:вывести гласные которые не входят хотя бы в одно слово.
если я ввожу

Код

if not (chr(i) in in_all)_ Then write(chr(i):3);

то у меня получается что всё работает тока много лишних знаков,как от них избавиться и оставить нужное??