Дано квадратное уравнение. Отыскать корешки. Помогите пожалуйста решить программку в АВС

Program kvur;
var a,b,c,d: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
writeln('D=b*b-4*a*c=',d);
if (dgt;0) then begin
writeln('Dgt;0 =gt; уравнение имеет 2 реальных разных корня ');
writeln('x1= ',(-b+sqrt(d))/(2*a));
writeln('x2= ',(-b-sqrt(d))/2*a);
end else if (d=0) then begin
writeln('D=0 =gt; уравнение имеет 2 совпадающих корня');
writeln('x1=x2=',-b/(2*a));
end else writeln('Dlt;0 =gt; уравнение не имеет реальных корней');
end.