Вычисление корней квадратного уравнения

Program Kvadratnoe_Uravnenie;
uses crt;
var a, b, c, d, x : real;
 
begin
clrscr;
Write('Введите значение A: ');
Read(a);
Write('Введите значение B: ');
Read(b);
Write('Введите значение C: ');
Read(c);
WriteLn;
d := sqr(b)-4*a*c;
if (a = 0) and (b = 0) and (c = 0) then
begin
WriteLn('X - любое число.');
end else if (a = 0) and (b = 0) then
begin
WriteLn('Заданное уравнение не имеет решений!');
end else if (a = 0) then
begin
WriteLn('Старший коэффициент не может равняться нулю.');
WriteLn('В этом случае уравнение преобразуется в линейное.');
x := (-c)/b;
WriteLn('X = ',x);
end else if ((a <> 0) and (b <> 0)) then
begin
if (d > 0) then
begin
WriteLn('D = ',d);
x := ((-b)+sqrt(d))/(2*a);
WriteLn('X = ',x);
x := ((-b)-sqrt(d))/(2*a);
WriteLn('X = ',x);
end else if (d < 0) then
begin
WriteLn('D = ',d);
WriteLn('D < 0, поэтому уравнение не имеет решений!');
end else if (d = 0) then
begin
x := (-b)/(2*a);
WriteLn('D = ',d);
WriteLn('X = ',x);
end;
end;
end.

uses crt;
var a,b,c : real;
    x1,x2 : real;
    D: real;
begin
clrscr;
writeln ('Введите a,b,c');
readln (a,b,c);
{1}if ((a=0) and (b=0) and(c=0))then writeln('x-любое действительное число')
{2}else if ((a=0) and (b=0) and(c<>0))then writeln('уравнение корней не имеет')
{3}else if ((a=0) and (b<>0) and(c=0))then writeln('x=0')
{4}else if ((a=0) and (b<>0) and(c<>0))then writeln('x=',-c/b:0:2)
{5}else if ((a<>0) and (b=0) and(c=0))then writeln('x1=X2=0')
{6}else if ((a<>0) and (b=0) and(c<>0))then
 begin
  if -c/a<0 then writeln('Решений нет')
  else writeln('x1=',sqrt(-c/a):0:2,' x2=',-sqrt(-c/a):0:2);
 end
{7}else if((a<>0) and (b<>0) and (c=0)) then writeln('x1=0  x2=',-b/a:0:2)
{8}else if((a<>0) and (b<>0) and (c<>0))then
 begin
  D:=b*b-4*a*c;
  if D<0 then writeln('Действительных корней нет')
  else if D=0 then writeln('x1=x2=',-b/(2*a):0:2)
  else
   begin
    x1 := (-b+sqrt(D))/(2*a);
    x2 := (-b-sqrt(D))/(2*a);
    writeln('x1=',x1:0:2,'  x2=',x2:0:2);
   end;
 end;
readln
end.