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

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.