ты наверное хотел взять день недели а не месяца, тогда
замени
i := getMonth(getCurrentTime);
на
i := getWeekDay(getCurrentTime);
потомучто у тебя токо шесть елементов в массиве
mm:array[2..7] of integer;
а если ты будешь брать день месяца например 21 то такого елемента не будет существовать)
тоесть твоя прога будет работать токо когда число месяца от меньше 7=)
удачи
