Вывести знак Зодиака, соответствующий дате

var m,d: integer;
begin
    Writeln('Введите месяц рождения');
    Readln(m);
    while (m<1) or (m>12) do
    begin
     Writeln('Введите месяц повторно.');
     readln(m);
    end;
 
    Writeln('Введите день рождения');
    Readln(d);
     while (d<1) or (d>31) do
     begin
      Writeln('Не верное значение. Введите день повторно.');
      readln(d);
     end;
 
    case m of
    1: if d>=20 then Writeln('Водолей') else Writeln('Козерог');
    2:while d>29 do
      begin
      Writeln('В Феврале максимум 29 дней. повторите ввод');
      readln(d);
      end;
       if d<=18 then Writeln('Водолей') else Writeln('Рыбы');
    3: if d<=20 then Writeln('Рыбы') else Writeln('Овен');
    4: if d<=19 then Writeln('Овен') else Writeln('Телец');
    5: if d<=20 then Writeln('Телец') else Writeln('Близнецы');
    6: if d<=21 then Writeln('Близнецы') else Writeln('Рак');
    7: if d<=22 then Writeln('Рак') else Writeln('Лев');
    8: if d<=22 then Writeln('Лев') else Writeln('Дева');
    9: if d<=22 then Writeln('Дева') else Writeln('Весы');
    10:if d<=22 then Writeln('Весы') else Writeln('Скорпион');
    11:if d<=22 then Writeln('Скорпион') else Writeln('Стрелец');
    12:if d<=21 then Writeln('Стрелец') else Writeln('Козерог');
    else Writeln('Что то пошло не так!');
    end;
end.

var M, D : integer;
// M - номер месяца
// D - число месяца
 
procedure TestM;
begin
  if (M<1) or (M>12)
  then Writeln('Ошибка ввода данных!');
end;
 
procedure TestD31;
begin
  if (D<1) or (D>31)
  then Writeln('Ошибка ввода данных!');
end;
 
procedure TestD30;
begin
  if (D<1) or (D>30)
  then Writeln('Ошика ввода данных!');
end;
 
procedure TestD28;
begin
  if (D<1) or (D>28)
  then Writeln('Ошибка ввода данных!');
end;
 
begin
  repeat
  Write('Введите номер месяца от 1 до 12: ');
  Readln(M);
  TestM;
  until (M>0) and (M<13);
  case M of
  1,3,5,7,8,10,12: repeat
                   Write('Введите номер числа от 1 до 31: ');
                   Readln(D);
                   TestD31;
                   until (D>0) and (D<32);
  4,6,9,11: repeat
            Write('Введите номер числа от 1 до 30: ');
            Readln(D);
            TestD30;
            until (D>0) and (D<31);
  2: repeat
     Write('Введите номер числа от 1 до 28: ');
     Readln(D);
     TestD28;
     until (D>0) and (D<29);
  end;
  case M of
  1: case D of
     1..19: Writeln('Козерог');
     20..31: Writeln('Водолей');
     end;
  2: case D of
     1..18: Writeln('Водолей');
     19..28: Writeln('Рыбы');
     end;
  3: case D of
     1..20: Writeln('Рыбы');
     21..31: Writeln('Овен');
     end;
  4: case D of
     1..19: Writeln('Овен');
     20..30: Writeln('Телец');
     end;
  5: case D of
     1..20: Writeln('Телец');
     21..31: Writeln('Близнецы');
     end;
  6: case D of
     1..21: Writeln('Близнецы');
     22..30: Writeln('Рак');
     end;
  7: case D of
     1..22: Writeln('Рак');
     23..31: Writeln('Лев');
     end;
  8: case D of
     1..22: Writeln('Лев');
     23..31: Writeln('Дева');
     end;
  9: case D of
     1..22: Writeln('Дева');
     23..30: Writeln('Весы');
     end;
  10: case D of
      1..22: Writeln('Весы');
      23..31: Writeln('Скорпион');
      end;
  11: case D of
      1..22: Writeln('Скорпион');
      23..30: Writeln('Стрелец');
      end;
  12: case D of
      1..21: Writeln('Стрелец');
      22..31: Writeln('Козерог');
      end;
  end;
end.