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

Формулировка задачи:

С клавиатуры вводятся произвольные слова (на англ). Для каждого из них по отдельности вывести в алфавитном порядке гласные буквы, в том количестве в котором они встречались в слове. (в паскале)

Решение задачи: «Вывести в алфавитном порядке гласные буквы строки»

textual
                            Листинг программы 
                        

                            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.
                        