Подскажите пожалуйста, где в програме вычисления корней квадратного уравнения допущена ошибка. Написана на паскале.

Program Dis;

var
x1, a, b, c, x2, d := real;
begin
wrireln('введите a');
readln(a);
wrireln('введите b');
readln(b);
wrireln('введите c');
readln(c);
d :=sqr(b)-(4*a*c);
writeln('D=', d);
if d>0
then
x1 :=(-1*b-sqrt(d))/(2*a);
x2 :=(-1*b+sqrt(d))/(2*a);
writeln('x1=', x1);
writeln('x2=', x2)
else
begin
if d<0 then
writeln('х не существует')
else
begin
x1 :=(-1*b+sqrt(d))/(2*a);
writeln('x1=', x1);
end

end


end.