// Найти в записи на ленте первое      
// вхождение цифры (известно, что      
// цифры есть). В начальный момент окно
// установлено на начало записи.       
                                       
ЭТО Поиск_цифры                        
  ПОКА НЕ ЦИФРА ВПРАВО                 
КОНЕЦ                                  
