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ập trình pascal) VD: PA

var s: ansistring;
    i,j: longint;
    a,b: array[1..10000000] of longint;
begin
    read(s); j:= 1;
    s:= Lowercase(s);
    for i:= 1 to length(s) do
        begin
            inc(a[ord(s[i])]);
            If a[ord(s[i])] = 1 then 
                begin 
                    b[j]:= ord(s[i]);
                    inc(j);
                end;
        end;
    j:= j-1;
    write('Cac chu cai co trong xau la: ');
    For i:= 1 to j do
        write(chr(b[i]),#32);
    writeln;
    For i:= 1 to j do
        writeln( chr(b[i]),' xuat hien ',a[b[i]]);
end.