Вывести название месяца по введенной дате - Free Pascal

Формулировка задачи:

Здравствуйте, В программу вводится строка, содержащее значение календарной даты в формате мм/дд/гг. Необходимо сделать, чтобы в результате месяц выводился словом(январь, февраль). Не получается часть программы, где месяц меняется на слово. Делаю с помощью case of. Выдаёт следующую ошибку: ordinal expression expected. Помогите, пожалуйста)

Решение задачи: «Вывести название месяца по введенной дате»

Листинг программы

uses sysutils, dateutils;
 
const
   month : array[1 .. 12] of string =
   (
      'yanvar', 'fevral', 'mart',
      'aprel', 'may', 'iun',
      'iul', 'avgust', 'sentyabr',
      'oktyabr', 'noyabr', 'decabr'
   );
 
var
   s : string;
   date : tdate;
begin
   writeln('vvedite datu mm/dd/gg');
   readln(s);
 
   date := StrToDate(s, 'MM/DD/YY', '/');
   writeln(Format('%s %d %d',
                  [month[MonthOf(date)], DayOf(date), YearOf(Date)]));
   readln;
end.

Объяснение кода листинга программы

Импортируются модули sysutils и dateutils.
Объявляется константа month, которая является массивом строк из 12 элементов, представляющих названия месяцев.
Создаются две переменные: s типа string и date типа tdate.
Выводится запрос на ввод даты в формате mm/dd/gg.
Введенная строка считывается в переменную s.
Вектор date инициализируется с помощью функции StrToDate, которая принимает три аргумента: строку, формат и разделитель. Формат 'MM/DD/YY' указывает, что входная строка должна быть интерпретирована как дата в формате mm/dd/gg. Разделитель '/' указывает, что разделителем являются символы '/'.
Выводится отформатированная строка, используя функцию Format, которая принимает три аргумента: строку формата, переменную month и переменную date.
Ожидается ввод с помощью функции readln.
Программа завершается.