Даны числа а,b,c.Найти вещественные корни уравнения ax(в четвертой степени)+bx(в квадрате)+с=0.Если корней нет то сообщить об этом

Program KvadratnieiBikkvadratnieuravnenir;
uses crt;
var
 a,b,c,D,x1,x2,x3,x4,t1,t2:real;
 n:byte;
begin
 clrscr;
 writeln('Esli Vi xotite reshit kvadratnuyu uravneniyu, vvedite stepenu 2');
 Writeln('ili sreshit bikkvadratnuyu uravneniyu, vvedite stepenu 4');
 repeat   
  write('Stepen=');
  readln(n);
 until (n=2) or (n=4);
 writeln('Vvodite koefichienti');
 repeat 
   write('a=');   
   readln(a);
   if a=0 then writeln('a doljni bit otlichstelno ot nulya'); 
 until a<>0;
 write('b=');
 readln(b);
 write('c=');
 readln(c);
 case n of
  2:begin
     D:=b*b-4*a*c;
     if D<0 then begin writeln('Net nornya'); readln; halt(1) end;
     x1:=(-b+sqrt(D))/(2*a);
     x2:=(-b-sqrt(D))/(2*a);
    if abs(x1-x2)<0.000001 then
     begin
      writeln('uravneniya imeet ravnie korni');
      writeln('x=',x1:6:2);
      readln;     
       end
      else
       begin
        writeln('x1=',x1:6:2);
        writeln('x2=',x2:6:2);
        readln
       end;
    end;
 4:begin
     D:=b*b-4*a*c;
     if D<0 then begin writeln('Net nornya'); readln; halt(1) end;
      t1:=(-b+sqrt(D))/(2*a);
      t2:=(-b-sqrt(D))/(2*a);
      x1:=sqrt(abs(t1));
      x2:=-sqrt(abs(t1));
      x3:=sqrt(abs(t2));
      x4:=-sqrt(abs(t2));
     if (abs(x1-x2)<0.000001) and (abs(x3-x4)<0.000001) then
      begin
       writeln('uravneniya imeet dva ravnie korni');
       writeln('x1=',x1:6:2);
       writeln('x2=',x2:6:2);
       readln;    
      end
      else
      begin
       writeln('x1=',x1:6:2);     
       writeln('x2=',x2:6:2);
       writeln('x3=',x3:6:2);
       writeln('x4=',x4:6:2);
       readln;
     end;
   end;
 end;
end.