По порядковому номеру дня в году (0 < N < 366) определить месяц. Год не високосный. Помогите Решить! Пожалуйста!

просто отнимай по количеству дней в месяце.
если n<=31 - январь
иначе n = n - 31
если n<28 - февраль
...

Год високосный, если он делится на четыре без остатка, но если он делится на 100 без остатка, это не високосный год. Однако, если он делится без остатка на 400, это високосный год. Таким образом, 2000 г. является особым високосным годом, который бывает лишь раз в 400 лет.

if (year mod 4 = 0) then
begin
if (year mod 100 = 0) then
begin
if (year mod 400 = 0) then writeln("Год високосный") else writeln("Год не високосный")
end
else writeln("Год високосный");
end
else writeln("Год не високосный");