Написать программу вычисления квадратного выражения x2-x-2=0

Var X, D, B, C, A, F: integer;
Begin
X := StrToInt (Edit1. Caption) ;
A := sqr(X) ;
C := 2;
B := X;
F := A - B - C;
Edit2.text := IntToStr(F) ;
End;