Function Digits:word;
Var isNumber : byte;
BEGIN
{Проверить кончился ли файл. Если да, то закончить функцию.};
{Взять из файла элемент, на который указывает указатель файла};
{Обработать взятый элемент. Если он цифра, то isNumber:=1; иначе isNumber:=0};
Digits:=Digits+isNumber;
end;