Проблема с прогой решения квадратного уравнения

[AmmoBoss]

http://pikucha.ru/i9H4M



Program X;
uses crt;
label 1;
var a,b,d,c,x1,x2:real;
z:integer;
begin
clrscr;
writeln('Bac npuBetctByet npogpamma dlya pewenuya kB. ypaBHeHuya');
1:writeln('BBedute koef.');
writeln('Koef-t a');
readln(angel);
writeln('Koef-t b');
readln(beer);
writeln('Koef-t c');
readln(coffee);
writeln ('BePho lu BBedeHbI dannbIe, 1 net, 2 da');
read (z);
if z= 1 then goto 1;
if a=0 then
x1:=-b/c;
writeln ('a=0 x = ',x1:4:2);
if a=0 then begin
if b=0 then
if c=0 then
writeln('a=0 b=0 c=0, x=lyboe chuclo');
end
else
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
writeln('discriminant <0 - mHumbIe kornu');
writeln('x1 = (',a:4:2,' + i*',b:4:2,')/',c:4:2);
writeln('x2 = (',a:4:2,' - i*',b:4:2,')/',c:4:2);
end
else
if d=0 then begin
x1:=-b/(2*a);
writeln('discriminant =0 - 1 koren x = ',x1:4:2);
end else
begin
x1:=(-b-sqrt(d))/(2+a);
x2:=(-b+sqrt(d))/(2+a);
writeln('korni yravneniya x1 = ',x1:6:2,' x2 = ',x2:4:2);
end;
end;
readln;
end.





если вводишь 000 и 0RR R- любое число не равно 0,
то норм выводит все...
а если вводишь RRR
то выводит a=0 x=0
и формулы с комплесными числами...
как сделать чтобы выводилось все по отдельности а не два ответа вместе.