Чистка старых исходников.
Переименована процедеура, ошибочно принимаемая за тестовый набор.