ггг, процедур, как насчет того, чтобы внутри ифа поставить сравнение, а не присваивание?
и т.д.