Need a perpetual calendar in TP7 code!!!!!!!!!!

I need a program in *.pas form from TP 7.0 that will prompt a user to
enter a year and then the program will calculate the the days of all of
the months of that year. It will need to know when leap years are. It
also needs to give me a calender for ANY date given. This is very urgent.
Will trade other progs for it!!