как сделать так чтобы когда z1 отрицательное а z2 положительное находило x3 и x4

Program kv;
var a,b,c,d:real;
z1,z2,x1,x2,x3,x4:real;
Begin 
writeln( ' Програма розв’язує біквадратні рівняння');
writeln(' Загальний вигляд біквадратного рівняння');
writeln('ax^4+bx^2+c=0');
writeln('введіть коефієнти біквадратного рівняння');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
writeln('введення нової змінної');
writeln('sqr(x)=z');
d:=sqr(b)-4*a*c;
if d<0 then
writeln('рівняння не має розвязку');
z1:=(-b+sqrt(d))/(2*a);
z2:=(-b-sqrt(d))/(2*a);
write('z1=');
writeln(z1:5:1);
write('z2=');
writeln(z2:5:1);
if z1<0 then
writeln('x1, x2 не мають коренів');
 
x3:=sqrt(z2);
write('x3=');
writeln(x3:5:1);
 
x4:=-sqrt(z2);
write('x4=');
writeln(x4:5:1);
 
if z2<0 then
writeln('x3, x4 не мають коренів');
 
x1:=sqrt(z1);
write('x1=');
writeln(x1:5:1);
 
x2:=-sqrt(z1);
write('x2=');
writeln(x2:5:1);
 
 
end.

program pr1;
uses crt;
var a,b,c:integer;
    x2,x,t,t2,d:real;
begin
clrscr;
writeln('Введите a,b,c');
readln(a); readln(b); readln(c);
d:=0; d:=sqr(b)-4*a*c;
if d>0 then begin
            t:=(-b-sqrt(d))/(2*a);
            t2:=(-b+sqrt(d))/(2*a);
            if t<0 then writeln('действительных корней нет') else
                                              begin
                                              x:=sqrt(t);
                                              writeln('корень х1= +-',x);
                                              end;
            if t2<0 then writeln('действительных корней нет') else
                                               begin
                                               x2:=sqrt(t2);
                                               writeln('корень х2= +-',x2);
                                               end;
            end;
if d=0 then begin
            t:=(-b)/(2*a);
            if t<0 then writeln('действительных корней нет') else
                                              begin
                                              x:=sqrt(t);
                                              writeln('корни= +-',x);
                                              end;
            end;
if d<0 then writeln('действительных корней нет');
readln;
end.