Пользователь последовательно вводит два числа. Первое-день месяца, второе-число месяца. Написать программу, чтобы она вывела что-то вроде ( 1января)

Var a: byte; b:integer;Begin writeln('Введите день месяца');readln(b);writeln('Введите номер месяца');    Readln(a);               Case a of         1: writeln(b,' янавря');        2: writeln(b,' февраля');      3: writeln(b,' марта ');         4: writeln(b,' апреля ');       5: writeln(b,' мая');      6: writeln(b,' июня ');         7: writeln(b,' июля');       8: writeln(b,' августа');     9: writeln(b,' сентября');      10: writeln(b,' октября');     11: writeln(b,' ноября');       12: writeln(b,' декабря');      else writeln('Месяца №', a,'нет');    end;        end.