Написать программку для Паскаля:Дата вводится в формате "дд.мм.гг". Записать словесно

Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу.  Легкая программа, но замысловатая.. 
 Пример:
case a of
        01.02.98 : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');
        02.02.98 : writeln (2 февраля тыща девятьсот девяносто восьмой год');
       Здесь дата : writeln ('Здесь что выводить');
 итд
      end;