Отладка программы на Turbo Pascal 7

[BalashovM]

Здравствуйте, уважаемые форумчане! Я начал изучать программирование совсем недавно, примерно полгода назад, при помощи книги Фаронова "Turbo Pascal - наиболее полное руководство" и, конечно же, школьного курса. С основной частью у меня проблем не возникает, но продолжая штудировать вышеозначенное издание, наткнулся на пример программы (в книге - стр. 52 и далее), которая вычисляет день недели по введённой дате. Скомпилировал сначала программу, введённую вручную, затем - просто скопированную из текстового pas-файла. Результат аналогичен: вместо пятницы выдаёт субботу, вместо субботы - воскресенье и т.д. Я хотел бы попросить вас, как людей достаточно опытных, проверить данную программу у себя и сообщить свои предположения насчёт некорректных вычислений. Мне просто интересно, действительно ли текст программы неверен, либо я сам допустил ошибку?
P.S. Заранее спасибо!

[Alex11223]

А ошибки типа array of string [11] = ( ' понедельник ' (13 символов)
и нескольких переменных на кириллице он специально делает?) (скопировал из приложения 5.1)
У меня 16-18 5 2011 все правильно, а 11 4 2011 выдало субботу.

[BalashovM]

Сообщение от Alex11223

А ошибки типа array of string [11] = ( ' понедельник ' (13 символов)
и нескольких переменных на кириллице он специально делает?) (скопировал из приложения 5.1)
У меня 16-18 5 2011 все правильно, а 11 4 2011 выдало субботу.

Я как бы на английском писал, у меня Паскаль не поддерживает кирлиллицу. Такие же ошибки. Если заработает нормально - выложи в теме, пожалуйста, правильный вариант.