Вывести в алфавитном порядке гласные буквы строки

var s:string;
     n,i,j,k:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
 begin
  readln(s);
  k:=0;
  for j:=1 to length(s) do
  if upcase(s[j] in ['A','E','I','O','U']) then k:=k+1;
  writeln('Количество гласных в слове=',k);
 end;
end.

if upcase(s[j]) in ['A','E','I','O','U'] then k:=k+1;

const gl:string[10]='AaEeIiOoUu'; //гласные по алфавиту
var s:string;
    a:array['A'..'u']of byte;
    c:char;
    n,i,j,k,m:byte;
begin
write('Введите количество слов n=');
readln(n);
for i:=1 to n do
 begin
  readln(s); //читаем строку
  for c:='A' to 'u' do  //обнуляем масив встречаемости букв
  a[c]:=0;
  k:=0; //пусть нет гласных в слове
  for j:=1 to length(s) do //идем по строке
  if upcase(s[j]) in ['A','E','I','O','U'] then //если гласная
   begin
    inc(k);//считаем
    inc(a[s[j]]);//добавляем 1 в ее ячейку
   end;
  if k>0 then //если есть гласные
   begin
    write('Гласные буквы:: ');//выводим букву(в скобках количество)
    for m:=1 to 10 do
    if a[gl[m]]>0 then write(gl[m],'(',a[gl[m]],') ');
    writeln;
   end
  else write('Гласных букв нет');
 end;
end.