Нахождение корней уравнения

program kvadratni_rivnyannya;
uses crt;
var
D:real;
a,b,c:real;
x1,x2:real;
stop:boolean;
begin
repeat
stop:=false;
writeln('Введіть перший коефіцієнт (a)');
readln(a);
writeln('Введіть другий коефіцієнт (b)');
readln(b);
writeln('Введіть вільний член(c)');
readln(c);
D:=sqr(b)-4*a*c;
if D<0 then
writeln('В множині дійсних чисел немає розвязку');
if D<0 then
stop:=true;
if D<0 then
writeln('Дискримінант=',D:2:1)
else
writeln('Дискримінант=',D:2:1);
if d=0 then
writeln('Рівняння буде мати один корінь','=',x1:3:1);
if d=0 then
x1:=(-b-sqrt(D))/(2*(a));
if d>0 then
x1:=(-b-sqrt(D))/(2*(a));
if d>0 then
writeln('Перший корінь =',x1:3:2);
if d>0 then
x2:=(-b+sqrt(D))/(2*(a));
if d>0 then
writeln('Другий корінь =',x2:3:2);
writeln(' ');
until stop
end.

uses crt;
var a,b,c,x1,x2:real;
begin
clrscr;
write('enter a,b,c=');
readln(a,b,c);
d:=b*b-4*a*c;
if(d>0) then
begin
x1=(-b+sqrt(d))/(2*a);
x2=(-b-sqrt(d))/(2*a);
writeln('Уравнение имеет 2 корня');
writeln(x1,x2);
end;
if(d=0) then
begin
x1=-b/(2*a)
writeln('Уравнение имеет 1 корень');
writeln(x1);
end;
if(d<0) then write('корней нет');
if(a=0) then 
f:=b-c;
if(f>0) then write(b, 'больше', c, 'на', f);
if(f<0) then write(c, 'больше', b, 'на', f);
if(f=0) then write(b,' =', c);