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

Question

Написать программу для Паскаля:
Дата вводится в формате "дд.мм.гг". Записать словесно название месяца и полностью указать год. Например, для 01.02.98 вывести "1 февраля тысяча девятьсот девяносто восьмой год", для 20.05.02 – "20 мая две тысячи второй год" и т.д.

Answer 1

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