Pascal/Turbo Pascal - necesito ayuda con un calendario

mes = record

nopmbre : string[25]; {esto seria Enero......Diciembre}

diarsemana : array[1..7] of string[12]; {esto seria Lunes.....Domingo}

dias : array[1..31] of integer; {esto seria los Dias del  1.....28,,29..30...31 dependiendo del mes}

end;