Отыскать действительные корешки квадратного уравнения либо вывести сообщение об их неименьи.

Program Korni;
uses crt;
var a,b,c,d,x1,x1:real;
begin
clrscr;
writeln (Введите коэффициенты квадратного уравнения);
write(A=); readln(a);
write(B=); readln(b);
write(C=); readln(c);
d:=sqr(b)-4*a*c;
if dlt;0 then writeln(Уравнение не имеет реальных корней)
else
begin
if d=0 then
begin
x1:=-b/(2*a);
writeln(X=,x1:6:2);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(X1=,x1:6:2, X2=,x2:6:2);
end;
end;
readln;