определение высокосного года, помогите please переделать условие Опции

[Slim]

Если год высокосный, то он должен делиться на 400, на 100 и на 4
Написал код, но написал - не верно!
В чём у меня ошибка?

Код

If (year mod 4=0) Then
Begin
If (year mod 100=0) Tnen
Begin
If (year mod 400=0) Tnen
b:='Да, год высокосный'
End
end
Else
b:='Нет, год не высокосный'

[Slim]

Код

function LeapYear(n: Word): Boolean;
begin
   LeapYear := ((n mod 4) = 0) and
     not (((n mod 100) = 0) and ((n mod 400) <> 0))
end;

Условие не корректно!
Получаеться что если год делиться на 4,и не делиться на 100 и на 400, то....
А нужно:
Если год делиться на 4, не делиться на 100, и делиться на 400, то...

Преподователь сказал, что в одно условие это записать сложно!
Если воожу 2000год - то пишет что год не высокосный!Когда должен показать - высокосный!