Напечатать гласные русские буквы в алфавитном порядке с указанием числа их появления в строке - Pascal ABC (12937)

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

Добрый день. Программа печатает гласные русские буквы в алфавитном порядке, но я не могу понять как указать числа появления их в строке. Буду рад любой помощи, спасибо.

program z;
var a: array['А'..'Я'] of integer; 
s: string; 
j: integer; 
ch: char; 
begin 
read(S); 
For j:=1 to length(s) do if Upcase(s[j]) in ['А','Е','И','О','У','Ы','Э','Ю','Я'] then inc(a[Upcase(s[j])]); 
for ch:='А' to 'Я' do 
if a[ch]>0 then Write(ch,' '); 
end.

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

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

program z;
var a: array['А'..'я'] of integer;
s: string;
j: integer;
ch: char;
begin
for ch:='А' to 'я' do
a[ch]:=0;
readln(S);
For j:=1 to length(s) do
if Upcase(s[j]) in ['А','Е','И','О','У','Ы','Э','Ю','Я'] then
inc(a[s[j]]);
for ch:='А' to 'я' do
if a[ch]>0 then Writeln(ch,'=',a[ch]);
end.

Объяснение кода листинга программы

Этот код на языке Pascal ABC выполняет следующие действия:

Создает массив a, который содержит все гласные русские буквы от 'А' до 'я' включительно. Каждая буква представлена целочисленным значением.
Считывает строку S с помощью функции readln().
В цикле for проходит по каждому символу строки S.
Если символ является гласной русской буквой (в верхнем регистре), то проверяется, входит ли он в список гласных букв ['А','Е','И','О','У','Ы','Э','Ю','Я']. Если да, то значение этого символа увеличивается на единицу в массиве a.
После завершения цикла, если в массиве a есть символы с положительными значениями, то выводится каждая гласная буква и ее значение. Пример вывода: А=0 Е=0 И=0 О=0 У=0 Ы=0 Э=0 Ю=0 Я=0