Определить знак зодиака

[qwertyuiop12345678]

Помогите пожалуйста с составление такой вот програмы

Зделать програму которая за введенной датой и датой дня рождения будет определять к какому из занков зодиака вы пренадлежите!

20.01-18.02-Водолей
19.02-20.03-Риби
21.03-19.04-Овен
20.04-20.05-Телец
21.05-21.06-Рак
23.07-22.08-Лев
23.08-22.09-Дева
23.09-22.10-Весы
23.10-22.11-Скорпион
23.11-21.12-Стрелец
22.12-19.01-Козерог

[Stilet]

Ок. Наработки есть?

[qwertyuiop12345678]

Нет.я только вот сегодня начал заниматся паскалем вот поетому сюда написал.

[ОДИНОЧЕСТВО В СЕТИ]

program zodiac;
Uses CRT;
VAR
{
Овен, 21 марта — 20 апреля
Телец, 21 апреля — 21 мая
Близнецы, 22 мая — 21 июня
Рак, 22 июня — 23 июля
Лев, 24 июля — 23 августа
Дева, 24 августа — 23 сентября
Весы, 24 сентября — 23 октября
Скорпион, 24 октября — 22 ноября
Стрелец, 23 ноября — 21 декабря
Козерог, 22 декабря — 20 января
Водолей, 21 января — 18 февраля
Рыбы, 19 февраля — 20 марта
}
 date,month,year: integer;
BEGIN
     Clrscr;
     write('год:');
     read(year);
     if (year>=1901) and (year<=2099) then
        begin
        write('месяц:');
        readln(month);
        if (month>0) and (month<=12) then
        else
        write('Вообще-то всего 12 месяцев...');
        end
     else
     write('error!');
readln;
end.

пойдет для начала?

[qwertyuiop12345678]

спасибо