אני לא כותב בפסקל אז אני לא יכול לעזור לך בקוד אבל אלה הכללים
חודשים
1,3,5,7,8,10,12
בעלי 31 ימים
חודשים
4,6,9,11
בעלי 30 יום
חודש 2
אם מתחלק ב4 29 יום
אם מתחלק ב 100 28 יום
אם מתחלק ב 400 29 יוםאתה צריך לעשות Case על החודשים
ואולי נוסף בשביל חודש פברואר

ascii stupid question, Get a stupid ansi