Algoritmia - nº dias de cada mes

Quiero crear un calendario para una aplicación, para lo cual necesito un algorritmo que me indique cuantos dias tiene cada mes y que dia de la semana empieza.
Si puedes ayudarme te lo agradecería mucho pues tengo que darme prisa. Gracias

Ese codigo lo tengo programamdo en Pascal dre la asignatura de algoritmos que curse en la carrera. Si te interesa que te envie el cpodigo o el algoritmo, dimelo, porque tengo que buscarlo en las profundidades de mis antiguos disquetes.

Un saludo