Как закончить код и вывести гласные в написанной мной строке - PascalABC.NET

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

Как закончить код и вывести гласные в написанной мной строке помогите пожалуйста.

var s,s1,s2,s3,s4:
string;
begin
s:='Solnce Smotri';
s1:=copy(s,1,3);
s2:=copy(s,4,4);
s3:=copy(s,8,3);
s4:=copy(s,11,3);
delete(s1,2,1);
delete(s2,3,1);
delete(s3,3,1);
delete(s4,3,1);
writeln
end.

Решение задачи: «Как закончить код и вывести гласные в написанной мной строке»

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

begin
  var n:=['A','E','I','O','U','a','e','i','o','u'];
  var s:='Solnce Smotri';
  for var i:=1 to s.Length do
    if s[i] in n then write(s[i]);
end.

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

В этом коде:

Создается переменная n типа array со значениями гласных букв ('A', 'E', 'I', 'O', 'U', 'a', 'e', 'i', 'o', 'u').
Создается переменная s типа string со значением 'Solnce Smotri'.
Запускается цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, является ли текущий символ гласной (с помощью оператора in).
Если символ является гласной, он выводится на экран (функция write).
Код завершается.