Написать программу,которая решает биквадратное уравнения sqr(ax)*sqr(ax)+b*sqrx+c=0- Pascal(Паскаль)

Program prog8;
Var a,b,c,x1,x2,x3,x4,t,t1,t2,d:real;
Begin
 Repeat
  Write('a=');Readln(a);
   until a>0;
    Write('b=');Readln(b);
    Write('c=');Readln(c);
    d:=(b*b-4*a*c);
    If d<0 then
      Begin
        Writeln('net resheniy');
        Readln;
        exit;
     End else
          If d=0 then
            Begin
              t:=-b/(2*a);
                 If t<0 then
                   Begin
                     Writeln('net resheniy');
                     Readln;
                     exit;
                     end;
                 If t=0 then
                   Begin
                     Writeln('resh ur x1=x2=x3=x4=0');
                      Readln;
                      exit;
                    End ;
                   If t>0 then
                      Begin
                        Writeln('x1=x2=',sqrt(t):5:2,'x3=x4=',-sqrt(t):5:2);
                        Readln;
                        exit;
                       End;
              end;
              If d>0 then
                 Begin
                   t1:=(-b+sqrt(d))/(2*a);
                   t2:=(-b-sqrt(d))/(2*a);
                      If (t1>0) and (t2<0) then
                         Begin
                           Writeln('x1=',sqrt(t1):5:2,'x2=',-sqrt(t1):5:2);
                           Readln;
                           exit;
                         End;
                       If (t1<0) and (t2>0) then
                           Begin
                             Writeln ('x1=',sqrt(t2):5:2,'x2=',-sqrt(t2));
                             Readln;
                             exit;
                             End;
                       If (t2>0) and (t1>0) then
                       Begin
                          Writeln('x1=',sqrt(t1):5:2,'x2=',-sqrt(t1):5:2,'x3=',sqrt(t2):5:2,'x4=',-sqrt(t2):5:2);
                          Readln;
                          exit;
                       end;
                   end;
end.