Посчитать количество цифр в строке

Задача

Написать программу, подсчитывающую количество цифр в заданной строке.

Решение

Создаем предварительно заполненное множество, состоящие из символов цифр. В цикле перебираем строку по символам. Если очередной символ входит во множество, увеличиваем на единицу (инкрементируем) переменную-счетчик цифр. После окончания работы цикла выводим значение счетчика на экран.

var
    s: string;
    count, i: byte;
    digits: set of char = ['0'..'9'];
 
begin
    write('Строка: ');
    readln(s);
 
    count := 0;
 
    for i := 1 to length(s) do
        if (s[i] in digits) then 
            inc(count);
 
    writeln('Кол-во цифр: ', count);
end.

Пример выполнения:

Строка: del12box34red
Кол-во цифр: 4