Сначала года по некоторый день месяцев и 2 дня. определить название месяца на паскале

Const m:array[0..11] of string = ('Январь','Февраль','Март','Апрель','Май','Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
 var n:integer;
begin
Readln(n);
Writeln(m[n mod 12]);
end.