Текстовое представление чисел

Переводит строку СТРОКА в целочисленное представление. Если СТРОКА содержит только целое число, то в УСПЕХ записывается Да и алгоритм возвращает целосисленное значение, иначе в УСПЕХ записывается Нет и алгоритм возвращает значение 0.