Сообщение от capzap нет, мне именно хотелось чтоб Вы обратили внимание на эту строку, прежде чем заявлять что в проге есть ошибка, избыточность может быть, но не ошибка В конце программы стоит state_res:=state; Мне не понятно зачем эти ужимки и прыжки. Может вы поясните ?
Правила форума