Решить уравнение в паскаль a*sqr(x)+bx+c=0

Var
a,b,c,d:real;
begin
write(Введите A=);read(a);
write(Введите B=);read(b);
write(Введите C=);read(c);
D:=sqr(b)-4*a*c;
if Dwriteln(D=,D, , Нет корней);end;
if D=0 then begin
writeln(D=,D, , x1=, -b/(2*a));end;
if D>0 then begin
writeln(D=,D, ,x1=,(-b-sqrt(d))/(2*a));
writeln(D=,D, ,x2=,(-b+sqrt(d))/(2*a));
end;
end.