Напишите программу которая определяет находится ли введеный год в прошломнастоящем или будущем (работа в паскале)

Проблем быть не должно, думаю, это самое примитивное.
Program asd;
Var x: integer;
Begin
read(x);
if x<2017 then Write(' — ',x,' год уже прошел.') else
if x=2017 then Write(' — ',' Сейчас — ',x,'.') else
if x>2017 then Write(' — ',x,' Еще не настал.')
end.

Надеюсь, помог.
Буду благодарен, если выберешь "Лучший"
Удачи!