По дате рождения опредилить знак зодиака

program junk;
uses crt;
var m,d:byte;
begin
clrscr;
writeln('Введите дату рождения в формате дата <Enter> месяц (пример 12 <Enter> 02) ');
readln(d,m);
textcolor(red);
case m of
1: if d<20 then writeln('Козерог') else writeln('Водолей');
2: if d<19 then writeln('Водолей') else writeln('Рыба');
3: if d<21 then writeln('Рыба') else writeln('Овен');
4: if d<20 then writeln('Овен') else writeln('телец');
5: if d<21 then writeln('Телец') else writeln('Близнецы');
6: if d<22 then writeln('Близнецы') else writeln('Рак');
7: if d<23 then writeln('Рак') else writeln('Лев');
8: if d<23 then writeln('Лев') else writeln('Дева');
9: if d<23 then writeln('Дева') else writeln('Весы');
10: if d<23 then writeln('Весы') else writeln('Скорпион');
11: if d<23 then writeln('Скорпион') else writeln('Стрелец');
12: if d<22 then writeln('Стрелец') else writeln('Козерог')
end;
readln
end.