Найти и вывести все гласные буквы ( без повторений ), которые встретились в словах и количество слов. / паскаль авс

Вот, прошу: ) uses   system.collections.generic; var   s: string;   l: list< char> : = new list< char> (); begin   readln(s);   s : = s.tolower();   foreach str: string in s.split(' ') do     foreach ch: char in str do       if (ch in ['а', 'е', 'ё', 'и', 'о', 'у', 'э', 'ю', 'я']) and (l.indexof(ch) = -1) then         l.add(ch);   foreach i: char in l do     write(i, ' '); end.