Viết chương tình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa hay chữ thường). Đề này nhưng muốn thông báo ra màn hình số lần xuất hiện của tất cả các chữ cái từ a-z ra luôn thì phải làm sao ạ?? Mình đang cần gấp ạ mong các bạn giúp đỡ

uses crt;
var s:string;
    a:array['A'..'Z'] of integer;
    ch:char;
    i:integer;
begin
 clrscr;
 write('nhap chuoi: '); readln(s);
 for i:=1 to length(s) do
  s[i]:=upcase(s[i]);
 for ch:='A' to 'Z' do
   for i:=1 to length(s) do
    if s[i]=ch then inc(a[ch]);
 for ch:='A' to 'Z' do
  if a[ch]<>0 then
  writeln(a[ch],ch);
readln;
end.
bn thử xem

uses crt;
var s:string;
a:array['A'..'Z'] of longint;
x:char;
i:longint;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
begin
x:=upcase(s[i]);
if x in['A'..'Z'] then a[x]:=a[x]+1;
end;
for x:='A' to 'Z' do if a[x]>0 then writeln(x,' ',a[x]);
readln
end.