Строки - Pascal ABC (247970)

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

Задание на тему строки: Входные данные: 5a; Суть задания: каких гласных букв (английских:маленьких) нет в заданных данных ( может вводится любой набор символов) .Написать код программы. Буду очень благодарна

Решение задачи: «Строки»

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

m:=['a','e','i','o','u'];
for i:=1 to length(s) do
if s[i] in m then m:=m-[s[i]];
writeln('Буквы, которых нет в строке');
for c:='a' to 'u' do
if c in m then write(c)

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

Создается строка-массив m с четырьмя элементами ['a','e','i','o'].
В цикле по длине строки s проверяется, есть ли каждый символ из строки s в массиве m.
Если символ есть в массиве m, то он удаляется из массива m.
Выводится список букв, которых нет в строке.
В цикле от 'a' до 'u' проверяется, есть ли каждая буква в массиве m.
Если буква есть в массиве m, то она выводится на экран.