Цитата Сообщение от capzap Посмотреть сообщение
нет, мне именно хотелось чтоб Вы обратили внимание на эту строку, прежде чем заявлять что в проге есть ошибка, избыточность может быть, но не ошибка
state:=1; (* тут НЕ должно быть state_res:=1; *)


всё там правильно. смотрим программу до конца