Разработать функцию MakeStr(const S:string):string, возвращающую строку, состоящую из всех гласных латинских букв строки S без повторений

Разработать функцию MakeStr(const S:string):string, возвращающую строку, состоящую из всех гласных латинских букв строки S без повторений. С помощью данной функции для каждой строки из введенного набора вывести все ее гласные латинские буквы без повторений. Гласными считаются следующие буквы: aeiouyAEIOUY.

Вход
В первой строке входа дано количество строк N. Затем следуют N строк, по одной в каждой строке.

Выход
На выход напечатать строки результата, по одной в каждой строке.

Пример
Вход:
3
abc
aabc
aabbeeaa

Выход:
a
a
ae

      function MakeStr(S:string;N:Integer):string;
       var r:string;
       const g='aeiouyAEIOUY';
       begin
       r:='';
       while (n>0)and(length(s)>0) do
        begin
        if pos(s[1],g)<>0 then
         begin
         r:=r+s[1];
         dec(n);
         end;
        delete(s,1,1);
        end;
       MakeStr:=r;
       end;
      var n,j:integer;
          s:string;
      begin
      readln(n);
      for j:=1 to n do
       begin
       readln(s);
       writeln(MakeStr(s,j));
       end;
      end.