Интересная задача для любителя)

[LeonanVasia]

Ввести с клавиатуры текст объемом до 255 символов на русском языке. Слова в тексте должны выделяться одно от одного пробелы. Исключить из текста все Гласные буквы.

[Alex11223]

Да, очень интересная. Лучше уж писать "бесплатно без смс".

var glasn: set of  char;
...
readln(str);
glasn:=['а','А','о','O','е','Е','ё','Ё','ы','Ы','у','У','э,'Э','ю','Ю','я'Я'];
for i:=length(str) downto 1 do
   if str[i] in glasn then delete(str, i, 1);

Либо if (str[i]='a') or (str[i]='A') or...