Можно ведь сделать, чтобы процедура меняла значение глобальной переменной.