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

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.