Сформировать по числовому заданию даты (число, месяц) ее словесную форму с учетом падежей

PRINT "введите дату (например 14 11):";
INPUT a$
i = INSTR(a$, " ")
day$ = MID$(a$, 1, i - 1)
month$ = MID$(a$, i + 1, LEN(a$))
ConvertDay (VAL(day$))
ConvertMonth (VAL(month$))
 
END
DEFINT D
SUB ConvertDay (d)
    SELECT CASE d
        CASE 1: PRINT "первое";
        CASE 2: PRINT "второе";
        CASE 3: PRINT "третье";
        CASE 4: PRINT "четвертое";
        CASE 5: PRINT "пятое";
        CASE 6: PRINT "шестое";
        CASE 7: PRINT "седьмое";
        CASE 8: PRINT "восьмое";
        CASE 9: PRINT "девятое";
        CASE 10: PRINT "десятое";
        CASE 11: PRINT "одиннадцатое";
        CASE 12: PRINT "двенадцатое";
        CASE 13: PRINT "тринадцатое";
        CASE 14: PRINT "четырнадцатое";
        CASE 15: PRINT "пятнадцатое";
        CASE 16: PRINT "шестнадцатое";
        CASE 17: PRINT "семнадцатое";
        CASE 18: PRINT "восемнадцатое";
    CASE 19: PRINT "девятнадцатое";
        CASE 20: PRINT "двадцатое";
        CASE 21 TO 29
            PRINT "двадцать ";
            ConvertDay (d MOD 10)
        CASE 30: PRINT "тридцатое";
        CASE 31: PRINT "тридцать первое";
    END SELECT
    PRINT " ";
END SUB
 
DEFINT M
SUB ConvertMonth (m)
    SELECT CASE m
        CASE 1: PRINT "января"
        CASE 2: PRINT "февраля"
        CASE 3: PRINT "марта"
        CASE 4: PRINT "апреля"
        CASE 5: PRINT "мая"
        CASE 6: PRINT "июня"
        CASE 7: PRINT "июля"
        CASE 8: PRINT "августа"
        CASE 9: PRINT "сентября"
        CASE 11: PRINT "ноября"
        CASE 12: PRINT "декабря"
    END SELECT
END SUB