Дана строка символов состоящая из букв и цифр определить сумму всех цифр в этой сроке и количество прописных заглавных букв на pascal

//PascalABC.NET 3.1 сборка 1219
begin
    var s := ReadString('s =');
    var t := s.MatchValues('[0-9]+').Aggregate(0, (s, x)-> s + StrToInt(x));
    var t1 := s.MatchValues('[A-Z]').Count;
    Println(t, t1);
end.

или

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 '' then k := k + 1;
    end;
    writeln(sum, ' ', k);
end.

1) Работает 6 часов по полчаса - 12 пациентов. Кодируется int(log2 12) = 4 битами. 2) 32 буквы кодируются 5 битами (log2 32). В слове «муравей» 6 букв. 6 * 5 = 30.3) 8*8 = 64. log2 64 = 6. Именно столько бит необходимо для кодирования каждой клетки.4) Что подразумевается под «оптимальным» не знаю, так что затрудняюсь ответить.5) log2 64 = 6 - количество бит для кодирования символа. 2000 * 6 = 12000 - количество бит для кодирования текста. 12000 / 8 = 1500 - количество байт для кодирования текста.6) 300 / 150 = 2 байта на символ. 2 * 8 = 16 бит. 2^16 = 65536. В алфавите не более 65536 символов7) Если кодировка ASCII или другая с кодированием в 1 байт на символ, то да, т.к. в килобайте 1024 байт. Если Unicode или подобные с 2-байтовой кодировкой, то нет/8) 5000 / 10 = 500 - байт  = 4000 бит в секунду. 800 - символов в секунду. 5 бит на символ. 2^5 = 32 символа9) 2,5 = log2 32 / log2 x. Получаем, что x = 410) один 8-ричный разряд содержит 3 бита (log2 8), 3 разряда числа - 3 * 3 = 9

1) Работает 6 часов по полчаса - 12 пациентов. Кодируется int(log2 12) = 4 битами. 2) 32 буквы кодируются 5 битами (log2 32). В слове «муравей» 6 букв. 6 * 5 = 30.3) 8*8 = 64. log2 64 = 6. Именно столько бит необходимо для кодирования каждой клетки.4) Что подразумевается под «оптимальным» не знаю, так что затрудняюсь ответить.5) log2 64 = 6 - количество бит для кодирования символа. 2000 * 6 = 12000 - количество бит для кодирования текста. 12000 / 8 = 1500 - количество байт для кодирования текста.6) 300 / 150 = 2 байта на символ. 2 * 8 = 16 бит. 2^16 = 65536. В алфавите не более 65536 символов7) Если кодировка ASCII или другая с кодированием в 1 байт на символ, то да, т.к. в килобайте 1024 байт. Если Unicode или подобные с 2-байтовой кодировкой, то нет/8) 5000 / 10 = 500 - байт  = 4000 бит в секунду. 800 - символов в секунду. 5 бит на символ. 2^5 = 32 символа9) 2,5 = log2 32 / log2 x. Получаем, что x = 410) один 8-ричный разряд содержит 3 бита (log2 8), 3 разряда числа - 3 * 3 = 9