Вывести на печать все русские гласные буквы, которые входят в каждое слово - Pascal

Формулировка задачи:

1) "на множества" Дан массив слов. Слова состоят из строчных латинских, русских букв и цифр. Вывести на печать все русские гласные буквы, которые входят в каждое слово. 2) " на записи" Сведения об успеваемости учащегося состоят из его фамилии оценок по трём предметам: физике, математике, информатике. - Получить список учеников, средний бал которых не менее 4,5. - Получить список учеников, у которых нет отметок ниже «4». - Сравнить успеваемость класса по разным предметам (средний бал), вывести в порядке убывания. 3)" на текстовые файлы " Дан текстовый файл А, содержащий целые числа. Записать в файл В все нечетные компоненты файла А. 4) " на создание графических изображений" Нарисовать закрашенный прямоугольник, менять случайным образом цвет, тип штриховки. Остановка выполнения программы – нажатие клавиши «пробел». 5)" на обработку массива" Действительные массивы X1 и X2, хранящиеся в текстовом файле input.txt упорядочены по возрастанию. Сформировать из их элементов массив X3, также упорядоченный по возрастанию. Результат сохранить в файле output.txt. 6) " на обработку строк" Описать процедуру AddNumber(S, N, K, L), добавляющую в начало каждой строки существующего текстового файла с именем S ее порядковый номер: первая строка получает номер N, вторая — N + 1 и т. д. Номер отображается в K позициях, выравнивается по правому краю и отделяется от последующего текста L пробелами (K > 0, L > 0). Если строка файла является пустой, то она также нумеруется, но пробелы после номера не добавляются. Применить эту процедуру к данному файлу, используя указанные значения N, K и L.

Решение задачи: «Вывести на печать все русские гласные буквы, которые входят в каждое слово»

Листинг программы

b:=['a','e'......{и т.д.}...,'я'];
for i:=1 to n do
if (a[i] in b) then write(a[i]);

Объяснение кода листинга программы

В данном коде происходит следующее:

Создается массив b, содержащий все русские гласные буквы.
Затем, в цикле for с переменной i от 1 до n происходит проверка: если текущая буква из массива a[i] присутствует в массиве b, то она выводится на экран. Примечание: в данном коде предполагается, что массив a содержит все буквы русского алфавита, а переменная n определяет количество букв в каждом слове для проверки.