Решить ! дана форма записи даты числами.например 01.12.2010 заменить цифру месяца на слово.например 01 декабря 2010 года

Программа на паскале:
var s: string;
begin
  read(s);
  write(copy(s, 1, 2));
  case copy(s, 4, 2) of
    '01': write(' января ');
    '02': write(' февраля ');
    '03': write(' марта ');
    '04': write(' апреля ');
    '05': write(' мая ');
    '06': write(' июня ');
    '07': write(' июля ');
    '08': write(' августа ');
    '09': write(' сентября ');
    '10': write(' октября ');
    '11': write(' ноября ');
    '12': write(' декабря ');
  end;
  writeln(copy(s, 7, 4), ' года');
end.