Đếm chữ trong xâu

Viết chương trình nhập vào một xâu ký tự từ bàn phím. Thông báo lên màn hình các chữ cái có trong xâu và số lượng của chúng ( Không phân biệt chữ hoa hay chữ thường).

                                                            Lời giải tham khảo
uses crt;
var
   s: string;
   i,h,c,k: integer;
   j: char;
   b: array [1..255] of integer;
   gan: boolean;
   a: array [1..255] of char;
begin
     clrscr;
     for j:='A' to 'Z' do
         begin
              c:=c+1;
              b[c]:=0;
              a[c]:=j;
         end;
     writeln('nhap xau ki tu: '); readln(s);
     for i:=1 to length(s) do s[i]:=upcase(s[i]);
     for i:=1 to length(s) do
         for k:=1 to c do
             if (a[k]=s[i]) then b[k]:=b[k]+1;
     for i:=1 to c do if b[i]>0 then writeln('Co ',b[i],' ki tu ',a[i]);
     readln;
end.