Подсчитать общее количество цифр и количество единиц - Pascal

Формулировка задачи:

Вводится текст. Среди символов этого текста имеется несколько цифр. Подсчитать общее количество цифр и количество единиц в строке. Если в тексте нет единиц , выдать соответствующее сообщение

Решение задачи: «Подсчитать общее количество цифр и количество единиц»

Листинг программы

type
digits = set of char;
var d:digits;
s: string;
i,k,n:integer;
begin
readln(s);
d:=['0'..'9'];
k:=0;
n:=0;
for i:=1 to length(s) do
    begin
    if s[i] in d then
        begin
        inc(n);
        if s[i] = '1' then
            inc(k);
        end;
    end;
writeln('Количество цифр: ', n);
if k = 0 then
    writeln('В тексте нет единиц ')
else
    writeln('количество единиц: ',k);
end.

Объяснение кода листинга программы

Объявляется тип digits как множество символов (цифр).
Объявляются переменные:
- d – множество символов от '0' до '9'
- s – строка для ввода данных
- i, k, n – целочисленные переменные для использования в цикле
Программа считывает строку s.
Переменной k присваивается значение 0.
Переменной n присваивается значение 0.
Выполняется цикл по символам строки s:
- Если текущий символ является цифрой, увеличивается значение переменной n на 1.
- Если текущий символ равен '1', значение переменной k увеличивается на 1.
Выводится текст Количество цифр: и значение переменной n.
Проверяется значение переменной k:
- Если равно 0, выводится текст В тексте нет единиц.
- Иначе выводится текст Количество единиц: и значение переменной k.