Помогите найти ошибку в программе (она в комментариях)

Var x, y, d, k:integer;

Begin

For x: = 0 to 15 do

Begin

y:=x*x+x+17;

Write ('f (', x,') = ', y) ;

k:=0;

d:=y div 2;

While d > 1 do

Begin

if y mod d = 0 then k:=k+1;

d:=d-1

End;

if k = 0 then WriteLn (' - простое')

else WriteLn (' - составное')

End;

End.