Не могу решить задачу

[rororo]

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

var
a : array ['A'..'Z'] of Byte;
s : string;
i : Integer;
j : Char;

begin
for j := 'A' to 'Z' do
a[j] := 0;

ReadLn(s);
for i := 1 to Length(s) do
Inc (a[UpCase (s[i])]);

for j := 'A' to 'Z' do
WriteLn (j, ' ', a[j])
end.

Если решать по этой программе которая сверху то получается как на картинке снизу...



Помогите напишите правильное решение

[BDA]

В цикл вывода добавьте проверку на то, что a[j] больше нуля.

[rororo]

не смогли бы вы написать мне: а то у меня руки кривые

[BDA]

if a[j]>0 then
WriteLn (j, ' ', a[j])

Но руки придется выпрямлять

[rororo]

))спасибо вам большущее!!!!)))
благодарен искренне