Склавиатуры вводится текст. слова разделяются пробелом. ввод текста прекращается после нажатия на клавиатуре точки. посчитать количество цифр в этом тексте. программа на языке 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.