Квадратное уравнение методом случайного перебора

uses crt;
var a,b,c,x,e:real;
begin
clrscr;
randomize;
repeat
writeln('Введите a,b,c a и b одновременно не равны 0');;
readln(a,b,c);
until(a<>0)or(b<>0);
if b*b-4*a*c<0 then write('Уравнение не имеет корней')
else
 begin
  repeat
   x:=-1000+random*2000;
   e:=a*x*x+b*x+c;
  until abs(e)<0.001;
  write('Один из корней=',x:0:3);
 end;
readln
end.

uses crt;
var a,b,c,x,x2,e,max,max2:real;
begin   {for test a=1,b=3,c=4; x=1;-4}
x:=0;
clrscr;
randomize;
repeat
writeln('Write a,b,c ');
clrscr;
readln(a,b,c);
write(a,'x^2');
if b>0 then write('+') else write('-');
write(abs(b),'x');
if c>0 then write('+') else write('-');
write(abs(c),'=0');
writeln;
until(a<>0)or(b<>0);
if b*b-4*a*c<0 then write('Wrong')
else
 begin
 begin
  repeat
   x:=-10+random*20;
   e:=a*x*x+b*x+c;
  until abs(e)<0.001;
end;
x2:=x;
max:=0;
max2:=0;
writeln('First:  ',x:0:0);
 begin
  repeat
   x2:=-10+random*20;
if x>x2 then max:=x else max2:=x2;
if max<>0 then if abs(max-x2)>0.3 then e:=a*x2*x2+b*x2+c;
if max2<>0 then if abs(max-x)>0.3 then e:=a*x2*x2+b*x2+c;
  until abs(e)<0.001;
end;
writeln('Second:   ',x2:0:0);
 end;
 readln;
end.