Цитата Сообщение от Newcomer Посмотреть сообщение
В конце программы стоит state_res:=state;

Мне не понятно зачем эти ужимки и прыжки. Может вы поясните ?
например, я внутри кейса использую буферную переменную, чтоб в ней задавать числа не только входящие в обрабатываемые кейсом, а вслед или перед кейсом провожу дополнительную обработку и далее через маску возвращаю эту переменную в диапазон используемых кейсом чисел. Возможно в этом проекте при отладке что то использовалось, затем было удалено, а это присвоение осталось