Đếm ký tự hoa, thường

Nhập vào một xâu kí tự, đếm xem có bao nhiêu kí tự hoa, có bao nhiêu kí tự thường
                                              Giải
Var
   s:string;
   i,t,h:integer;
   a,b:char;
BEGIN
   Write('Nhap xau ki tu can kiem tra: '); Readln(s);
   For i:=1 to length(s) do
       Begin
          For a:='a' to 'z' do
               if s[i]=a then t:=t+1;
          For b:='A' to 'Z' do
               if s[i]=b then h:=h+1;
       End;
   Writeln('So ki tu thuong la: ',t);
   Writeln('So ki tu hoa la: ',h);
   Readln;
END.