nhập vào 1 xâu S đếm số lần xuất hiện chữ cái (A...Z) trong xâu vừa nhập chú ý không phân biệt chữ hoa hay chữ thường

Program FNG;
Uses crt;
Var S: String;
    dem: array['A'..'Z'] of byte;
    d,i: longint;
    k: char;

Function doixung(St: String): boolean;
Var i: longint;
Begin
        For i:=1 to length(St) div 2 do
                If St[i]<>St[length(St)-i+1] then exit(false);
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap S: '); Readln(S);
        For i:=1 to length(S) do
                S[i]:=Upcase(S[i]);
        For k:='A' to 'Z' do
                dem[k]:=0;

        For i:=1 to length(S) do
                If S[i] in ['A'..'Z'] then inc(dem[S[i]]);
        Writeln('Cau 1: ');
        For k:='A' to 'Z' do
                If dem[k]<>0 then Writeln(k,': ',dem[k]);

        For i:=1 to length(S) do
                If S[i] in ['0'..'9'] then inc(d);
        Writeln('Cau 2: ',d);
        If doixung(S) then Write('Cau 3: Doi xung')
        Else Write('Cau 3: Khong doi xung');
        Readln

uses crt;
var i,d:longint; s:string;
begin
clrscr;
   write('S= ');readln(s);
   for i:=1 to length(S) do 
      if upcase(s[i]) in ['A'..'Z'] then inc(D);
   writeln(d);
readln
end.