Помогити пж решить задачу Срочнноо !!! Дана форма записи даты числами.Например 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.