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

Предыдущий
вопрос Следующий
вопрос

Program CountDigits;

var
text: string;
i, countDigits: integer;

begin
text := '';
countDigits := 0;

writeln('Enter text (type a dot to stop):');
repeat
readln(text);
for i := 1 to length(text) do
begin
if (text[i] >= '0') and (text[i] <= '9') then
countDigits := countDigits + 1;
end;
until text = '.';

writeln('Number of digits in the text: ', countDigits);
end.