Решить невырожденное биквадратное уравнение - Pascal ABC

uses crt;
var a,b,c,x1,x2,x3,x4,t,t1,t2,d:real;
begin
  repeat
  write('a<>0 a=');read(a);
  until a<>0;
  write('b=');readln(b);
  write('c=');readln(c);
  d:=(b*b-4*a*c);
  if d<0 then
    begin
      writeln('нет действительных корней');
      readln;
      exit;
    end else
  if d=0 then
     begin
       t:=-b/(2*a);
       if t<0 then
         begin
           writeln('нет действительных корней');
           readln;
           exit;
         end else
       if t=0 then writeln('x1=x2=x3=x4=0')
       else if t>0 then writeln('x1=x2=',sqrt(t):5:2,' x3=x4=',-sqrt(t):5:2);
     end else
  if d>0 then
     begin
        t1:=(-b+sqrt(d))/(2*a);
        t2:=(-b-sqrt(d))/(2*a);
        if (t1>0)and(t2<0)then writeln('x1=',sqrt(t1):5:2,' x2=',-sqrt(t1):5:2)
        else if (t1<0)and(t2>0)then writeln('x1=',sqrt(t2):5:2,' x2=',-sqrt(t2):5:2)
        else if (t2>0)and(t1>0) then writeln('x1=',sqrt(t1):5:2,' x2=',-sqrt(t1):5:2,' x3=',sqrt(t2):5:2,' x4=',-sqrt(t2):5:2);
     end;
end.