Tin học Kiểu xâu

Vết chương trình nhập vào 1 xâu bất kì chỉ bao gồm các kí tự chữ cái. đếm xem trong xâu có bao nhiêu kí tự khác nhau. Đưa ra tần suất xuất hiện của các kí tự trong xâu ( không phân biệt chữ hoaa chữ thường). Giúp mình viết chương trình bài này :v yêu <3

 

không phân biệt chữ hoa hay chữ thường là sao
vd: aA thì sẽ có 2 chữ a hả hay 1 a 1A

 

dùng upcase để tất cả là chữ hoa

 

Mã:

Var
 d:array[1..100]  of integer;
 s:string;
 i,j:integer;
Begin
 readln(s);
 For i:=1 to length(s) do
  s[i]:=upcase(s[i]);
 Fillchar(d,sizeof(d),1);
 For i:=1 to length(s)-1 do
   For j:=i+1 to length(s) do
     if s[i]=s[j] then
      begin
        d[i]:=d[i]+1;
        delete(s,j,1);
      end;
  For i:=1 to length(s) do
   writeln(s[i], '  ',d[i]);
readln
End.