Добавлено спустя 12 часов 55 минут 43 секунды:
enot777 писал(а):Параметр F в Writeln наверное лишний.
Ну да, можно и выбросить.
enot777 писал(а):Проблема именно в совпадении Dec (сокращение December) и Dec() (декремент)
Это точно мне надо исправить, но не сразу, подожду ещё ваших подсказок, наверняка накопаете
Пока исправил только ошибку в файле с ответами: на стр. 79 добавлено w:=0 в функции ExpandTo80.
Кстати, до сих пор мне не приходило в голову проверить Inc/Dec на перечислениях. В стандартном Паскале Вирта этих процедур нет, это новые плюшки. Действительно, работают. При {$R-} даже выход за границы перечисления позволяют. Аккуратней с ними надо.