определение высокосного года, помогите 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:='Нет, год не высокосный'

[volvo]

Program God;

{ Здесь - функция LeapYear  }

Var
  Year: Integer;
  b: string;
begin
  ... { Ввод значения year }
  If LeapYear(year) Then b:='Да, год високосный'
  Else b:='Нет, год не високосный';

  WriteLn('Наш год: ', b);
  ReadLn;
End.