Надо соблюдать последовательность. У тебя сначала вычисляются корни уравнения, а потом уже дискриминант. Поменять
Код:
x1:=(-b-(sqrt(d)))/(2*a);
x2:=(-b+(sqrt(d)))/(2*a);
d:=(sqr(b))-(4*a*c);
на
Код:
d:=(sqr(b))-(4*a*c);
x1:=(-b-(sqrt(d)))/(2*a);
x2:=(-b+(sqrt(d)))/(2*a);
.
И не забывать про проверки значения дискриминанта до вычисления корней!