дана строка знаков состоящая из букв и цифр найти сумму всех

Var
    s: string;
    i, sum, k: integer;

begin
    readln(s);
    for i := 1 to Length(s) do
    begin
        if s[i] in '0123456789' then sum := sum + StrToInt(s[i])
        else if s[i] in 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' then k := k + 1;
    end;
    writeln(sum, ' ', k);
end.