В строке вычисления корней в знаменателе нужно поставить скобки.
х1:=(-b+sqrt(D))/(2*a);
х2:=(-b-sqrt(D))/(2*a);
