Паскаль. Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года

program new_year;

var sum, month, day:integer;

const d: array [1 ... 12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);

//массив дней в месяцах задан как константа

begin

writeln ('Введите номер месяца и номер дня через пробел');

readln (month, day);

sum:=0;

for i:integer: = month to 12 do sum:=sum+d[i];

//сумма дней до конца года

//за текущий и последующие месяцы

sum:=sum - day; / /вычесть дни с начала месяца

write ('До Нового года осталось ', sum,' дней');

end.