Дан текст, содержащий не более 10 слов, из строчных русских букв, между соседними словами – запятая, за последним словом - точка. Составить программы, в которых напечатать в алфавитном порядке: все гласные буквы, которые входят хотя бы в одно слово более двух раз.Гласные буквы – а, е, и, о, у, ы, э, ю, я; Задание на множества Пожалуйста посчитайте по паскалюфункции не используйте. срочно нужно до завтра

begin
  var sg:=['а','е','и','о','у','ы','э','ю','я'];
  var a:=ReadlnString('Вводите текст: ').ToWords(',','.');
  var r:set of char=[];
  for var i:=0 to a.Length-1 do begin
    var b:=a[i].Where(c->c in sg).GroupBy(t->t).Select(t->(t.Key,t.Count));
    foreach var t in b do
      if t[1]>2 then r+=[t[0]];
    end;
  var s:='';
  foreach var c in r do s+=c;
  s.OrderBy(t->t).Println(',')
end.


Вводите текст:  Дает,корова,молоко,а,жираф,это,длинношеее,животное.
е,о