Выяснить, имеет ли уравнение ax2+bx+c=0 вещественные корни

 Uses crt;
 
 var
 a,b,c:real;
 x1,x2,D:real;
 
 begin
    clrscr;
    Write('Введите коэффициент a: ');   readln(a);
    Write('Введите коэффициент b: ');   readln(b);
    Write('Введите коэффициент c: ');   readln(c);
    
    clrscr;
    Writeln('Решаем уравнение:');
    Writeln(a,'*x^2 + ',b,'*x + ',c,' = 0');
    
    if a=0 then
    begin
    writeln('Это не квадратное уравнение! (а=0)');
        If b=0 then
        begin
          If c=0 then
          writeln('Условие истинно для любых х!')
          else
          Writeln('Условие ложно')
        end
        else
        begin
        x1:=-c/b;
        Writeln('Корень уравнение:');
        Writeln('X=',x1);
        end
    end
    else
    begin
    
      { Вычисление дискриминанта }
          D := sqr (b) - 4 * a * c;
          
          if D<0 then
           writeLn ('Действительных корней  нет! Дискриминант = ', D)
        else
        begin
            { Вычисление корней }
            x1 := (- b - sqrt (D)) / (2 * a);
            x2 := (- b + sqrt (D)) / (2 * a);
 
            { Вывод результата }
            writeLn ('Корни уравнения:');
            writeLn ('X1 = ', x1 : 1 : 5);
            writeLn ('X2 = ', x2 : 1 : 5)
          end
    end;
    readln
 end.