Генерация календаря, нужно сгенирировать годовой календарь Опции

[Янычар]

Такое задание которое нужно осуществить на Паскале: надо создать такую программу, которая генерировала бы годовой календарь по первому дню первого января, то есть первому дню первого января любого года по счету в неделе, например если 1 января в этом году будет во вторник, значит его позиция равна 2 и таким образом надо чтобы программа генерировала годовой календарь. Я вроде программу сделал, а почему то работает неверно выводит бесконечный одинарный столбец одного какого-нибудь числа. Я сделал так: разбил на подзадачи, тоесть для генерации месяца одна процедура, для отступов перед следующим месяцем - другая процедура. Подскажите как сделать такую программу, а если не лень или если такая программа у вас уже написана напишите ее сюда буду очень благодарен.