Двумерные массивы. календарь

[Dumbl-D]

Не могу разобрать как записать программу на даную задачу. Помогите, пожалуйста)

type
 mon=(jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);
  day=(mn,tu,we,th,fr,sa,su);
   kalendar=array[mon,1..31] of day;

 var 
  K:kalendar;

Заполнить календарь K соответствющими днями недели (для несуществующих дат указать НЕТ) при условии, что год невисокосный и 1 января - понедельник (K[jan,1]=mn,K[jan,2]=tu,..,K[feb,29]=НЕТ,..).