Pascal дана строка, представляющая из себя дату рождения в формате dd.mm.yy. вывести день рождения в формате d . например, 05.04.2001 → 5 апреля. как должен выглядить код?

Var d,m,dr: string;
    mes: array[1..12] of string=('января','февраля','марта',
         'апреля','мая','июня','июля','августа','сентября',
         'октября','ноября','декабря');
begin
   write('дата рождения в формате dd.mm.gg: ');
   readln(dr);
   d:=copy(dr,1,2);
   m:=copy(dr,4,2);
   writeln(StrToInt(d),' ',mes[StrToInt(m)]);
end.

дата рождения в формате dd.mm.gg : 05.08.2001
5 августа