Pascal: program hónap elejétől végéig kiírja dátumokat és ezt megadott hónapok közt is, hogyan kell ezt megoldani? (bővebben lent)

Szeretném, ha megadom neki számmal az évet és hónapot, a hónap első napjától az utolsóig folyamatosan kiírná a dátumot, nappal együtt.

Tömbbel tudnám megoldani, hogy a program "automatikusan tudja" hogy az adott hónap milyen hosszú, illetve le tudom kérni, hogy szökőév van -e, de reménykedem benne, hogy "egyszerűbb megoldás" is van e problémára.

Bónuszként kiírhatná azt is, hogy adott évben mikor van Húsvét és Pünkösd...

Megadom neki például, hogy 2016.01 és hogy 2016.06 és január 1-től elszámolna június utolsó napjáig...

Egyszerű megoldás van erre?

A "datumt" változót csak úgy bevezettem, nem tudom, mit tegyek vele átkonvertálás után hogy ilyen módon számolni tudjak vele...

program datumok;

uses SysUtils, DateUtils;

var

datums, tempstr : string;

datumt : TDateTime;

dowcount : integer;

i : byte;

begin

DateSeparator := '.';

for i := 1 to 31 do

begin

str (i, tempstr);

datums := '2017.01.' + tempstr;

datumt := StrToDateTime(datums);

dowcount := DayOfWeek(datumt);

WriteLn('Ma ',datums,' ',LongDayNames[dowcount],' van.');

end;

ReadLn;

end.