На паскале дана строка. а. определить количество гласных и согласных букв. б. удалить все повторяющиеся символы.

begin

 var Гласные := ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];

 var Согласные := ['а'..'я'] - Гласные;

 var s := ReadlnString('Введите строку:').ToLower;

 var Гласных := s.Where(t -> t in Гласные).Count;

 var Согласных := s.Where(t -> t in Согласные).Count;

 Println('Гласных', Гласных, ', согласных', Согласных);

 Print('После удаления повторов:');

 s.Distinct.Println

end.