составить программку в паскале по выводу знака зодиака

 Var
   d,m:byte;
Begin
Write('Введите денек: ');ReadLn(d);
Write('Введите месяц: ');ReadLn(m);
Case m of
3:if dlt;21 then Write('Рыбы')
  else Write('Овен');
4:if dlt;21 then Write('Овен')
  else Write('Телец');
5:if dlt;22 then Write('Телец')
  else Write('Близнецы');
6:if dlt;22 then Write('Близнецы')
  else Write('Рак');
7:if dlt;23 then Write('Рак')
  else Write('Леа');
8:if dlt;24 then Write('Леа')
  else Write('Дева');
9:if dlt;24 then Write('Дева')
  else Write('Весы');
10:if dlt;24 then Write('Весы')
  else Write('Скорпион');
11:if dlt;23 then Write('Скорпион')
  else Write('Стрелец');
12:if dlt;22 then Write('Стрелец')
  else Write('Козерог');
1:if dlt;21 then Write('Козерог')
  else Write('Водолей');
2:if dlt;19 then Write('Водолей')
  else Write('Рыбы');
else Write('Нет такового месяца')
End;
End.