Вывести строку, составленную из всех гласных букв, входящих в данную строку - Pascal ABC

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

1.Дана строка, напечатанная русскими буквами. Вывести строку, составленную из всех гласных букв, входящих в данную строку.

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

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

program z1632287;
 const c=['а','у','о','ы','и','э','я','ю','ё','е'];
 var i:integer;
     s,t:string;
begin
 cls;
 t:='';
 writeln('Введите строку:');
 readln(s);
 for  i:=1 to length(s) do
  if s[i] in c
   then t:=t+s[i]
   else if LowCase(s[i]) in c
         then t:=t+s[i];
 writeln('Новая строка:');
 writeln(t)
end.

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

В программе объявлены переменные c, i, s и t. Переменная c содержит список гласных букв, которые будут использованы для формирования новой строки. Переменная i используется для цикла, который будет проходить по каждому символу во входной строке s. Переменная s содержит входную строку, введенную пользователем, а переменная t содержит пустую строку, которая будет использоваться для накопления гласных букв.
Программа выводит сообщение Введите строку: для запроса строки от пользователя.
В цикле for происходит проверка каждого символа во входной строке s. Если символ является гласной буквой и присутствует в списке c, то он добавляется в строку t. Если символ является прописной буквой и присутствует в списке c, то он также добавляется в строку t.
После завершения цикла программа выводит новую строку, содержащую только гласные буквы из входной строки.