Оператор выбора

[MIKE72]

Добрый день
Подскажите пожалуйста правильно ли я решил задачу

Определить тип M перечислением месяцев, тип D – диапазоном дней от 1 до 31. Логической переменной t присвоить значение истины, если дата d1, m1 предшествует в рамках года дате d1, m2, и лжи – в противном случае.

Uses crt;
type
     Month=(jan,feb,mar,apr,may,jun,jul,aug,sept,oct,nov,dec);
     Days=1..31;

var
    t:Boolean;
    d1,d2:Days;
    m1:Month;
    m2:Month;
    mon1:1..12;
    mon2:1..12;
begin
Clrscr;
write('Vvedite d1 ->');
readln(d1);
write('Vvedite m1 ->');
readln(mon1);
write('Vvedite d2 ->');
readln(d2);
write('Vvedite m2 ->');
readln(mon2);
case (mon1-1) of
0:m1:=jan;
1:m1:=feb;
2:m1:=mar;
3:m1:=apr;
4:m1:=may;
5:m1:=jun;
6:m1:=jul;
7:m1:=aug;
8:m1:=sept;
9:m1:=oct;
10:m1:=nov;
11:m1:=dec;
end;
case (mon2-1) of
0:m2:=jan;
1:m2:=feb;
2:m2:=mar;
3:m2:=apr;
4:m2:=may;
5:m2:=jun;
6:m2:=jul;
7:m2:=aug;
8:m2:=sept;
9:m2:=oct;
10:m2:=nov;
11:m2:=dec;
end;
If (m1<m2) or ((m1=m2) and (d1<d2)) then t:=true else t:=false;
writeln(t);
readln;
end.