Delphi Программа запрашивающую у пользователя дату...

[ProgramData2512]

Нужна программа запрашивающую у пользователя дату в кратком формате дд.мм.гг (например: 15.10.2005), и отображающую эту дату в формате (например: 15 октября 2005 года) в Delphi. Нашел этот код на просторах интернета, но он не работает. Мне нужна эта программа в консоли, прощу помочь.

function Monthstr(S: tdatetime): string;
const
Mes: array[1..12] of string = ('января', 'февраля', 'марта', 'апреля',
'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',
'декабря');
var
Year, Month, Day: Word;
begin
try
// пр-ка правильности ввода даты
DecodeDate(S, Year, Month, Day);
Result := ''+IntToStr(day);
Result := Result + ' ' + Mes[Month];
Result := result + ' ' + IntToStr(Year) + ' года';
except
raise
Exception.Create('"' + datetostr(s) + '"' + ' - такой даты нет!');
end;
end;

[newerow1989]

function MonthStr(s:string):string;
const Mes: array[1..12] of string = ('января', 'февраля', 'марта', 'апреля',
      'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',
      'декабря');
var d:TDateTime;
    Year,Month,Day:word;
begin
   try
   d:=StrToDate(s);
   DecodeDate(d,Year,Month,Day);
   Result:=IntToStr(Day)+' '+Mes[Month]+' '+IntToStr(Year)+' года';
   except
      Result:='<no date!>';
   end;
end;

var s:string;
begin
   Write('String date = '); Readln(s);
   s:=MonthStr(s);
   Writeln(s);
   Readln;
end.

[Аватар]

type TMyArray = array[1..12] of string;
const Mes: TMyArray = ('января', 'февраля', 'марта', 'апреля', 'мая', 'июня',
                       'июля', 'августа', 'сентября', 'октября', 'ноября','декабря');
var xLongMonthNames: TMyArray;
...
  xLongMonthNames:=TMyArray(LongMonthNames);
  try
     TMyArray(LongMonthNames):=Mes;
     try
       s:=FormatDateTime('d mmmm yyyy года',StrToDate('15.10.2005'));
     except
       s:='формат даты не понятный';
     end;
  finally
    TMyArray(LongMonthNames):=xLongMonthNames;
  end;