uses crt;

var i, d, s, x, code : Longint;

    ct, st : String;

begin

clrscr;

write('Nhap CTHH = '); readln(ct);

ct := ct + ' ';

for i := 1 to length(ct) do

    begin

        if ct[i] in ['A'..'Z'] then

            begin

                d := d + 1;

                if (ct[i + 1] in ['A'..'Z']) or (ct[i + 1] = ' ') then s := s + 1;

            end;

        if ct[i] in ['0'..'9'] then

            begin

                val(ct[i], x, code);

                if ((ct[i + 1] in ['A'..'Z']) or (ct[i + 1] = ' ')) and (ct[i - 1] in ['A'..'z']) then s := s + x;

            end;

    end;

for i := 1 to length(ct) do

    if ct[i] in ['0'..'9'] then

        if ct[i + 1] in ['0'..'9'] then

            begin

                st := ct[i] + ct[i + 1];

                val(st, x, code);

                s := s + x;

            end;

writeln ('a) So nguyen to = ', d);

writeln ('b) So nguyen tu = ', s);

readln;

end.

Code

uses crt, sysutils;
var cthh,t: string;
var i,nguyento,nguyentu: integer;
var add: boolean;
begin
clrscr;
add := false; t := ''; nguyento := 0; nguyentu := 0;
write('Nhap CTHH = ');
readln(cthh);
for i:=1 to length(cthh) do
begin
    if cthh[i] in ['A'..'Z'] then
    begin
        nguyento := nguyento + 1;
        nguyentu := nguyentu + 1;
    end else if cthh[i] in ['0'..'9'] then
    begin
        t := t + cthh[i];
        if not(cthh[i+1] in ['0'..'9']) then
        begin
            if add = true then add := false
            else nguyentu := nguyentu + StrToInt(t) - 1;
        end else
        begin
            t := t + cthh[i+1];
            add := true;
            nguyentu := nguyentu + StrToInt(t) - 1;
        end;
        t := '';
    end;
end;
writeln('a) So nguyen to = ',nguyento);
writeln('b) So nguyen tu = ',nguyentu);
end.

# Làm khá dài :3