По заданному знаку зодиака вывести период времени - PascalABC.NET

Формулировка задачи:

По заданному знаку зодиака вывести период времени.пусть знак зодиака будет рыбы

Решение задачи: «По заданному знаку зодиака вывести период времени»

Листинг программы

begin
  var s:=ReadString('Введите знак зодиака:');
  case UpperCase(s) of 
    'ОВЕН':writeln('21 марта - 19 апреля');
    'ТЕЛЕЦ':writeln('20 апреля - 20 мая');
    'БЛИЗНЕЦЫ':writeln('21 мая - 20 июня');    
    'РАК':writeln('21 июня - 22 июля');    
    'ЛЕВ':writeln('23 июля - 22 августа');     
    'ДЕВА':writeln('23 августа - 22 сентября');
    'ВЕСЫ':writeln('23 сентября - 22 октября');
    'СКОРПИОН':writeln('23 октября - 21 ноября');    
    'СТРЕЛЕЦ':writeln('22 ноября - 21 декабря');    
    'КОЗЕРОГ':writeln('22 декабря - 19 января');     
    'ВОДОЛЕЙ':writeln('20 января - 18 февраля');
    'РЫБЫ':writeln('19 февраля - 20 марта');
    else writeln('Нет такого знака');
  end;
end.

Объяснение кода листинга программы

Вводится строка, представляющая знак зодиака.
Строка приводится к верхнему регистру.
Происходит проверка введенного знака зодиака и вывод соответствующего периода времени.
Если введенный знак зодиака не соответствует ни одному из указанных значений, выводится сообщение Нет такого знака.