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

У Вас не использовано условие "Ввод текста прекращается после нажатия на клавиатуре точки".

Иногда данное условие превращают в "Концом текста является точка", именно об это я и подумал. Плюс, наверное, в условие было не количество цифр, а количество чисел, но это уже не моё дело.

условии*

На точку Вы тоже не проверяете.

Окей, ладно, признаю, был не прав. Если действительно углубляться в суть вопроса и делать Именно так, как в сказано в условии, то моё решение не подойдёт

var str : string; i, num : integer;begin readln(str); num := 0; for i := 1 to length(str) do if str[i] in ['0'..'9'] then num := num + 1; writeln(num);end.