Составить алгоритм для вычисления квадратного уравнения

program abc;
var
a,b,c,x1,x2,d:real;
 begin
 write(' A='); readln(a);
 write(' B='); readln(b);
 write(' C='); readln(c);
 D:=b*b-4*a*c;
  if D<0 then begin
  writeln('Нет корней');
  end;
       if D=0 then begin
        writeln('x1=',-b/(2*a))
        end;
  if D>0 then begin
  x1:=(-b-sqrt(d))/(2*a);
  x2:=(-b+sqrt(d))/(2*a);
  writeln('x1=',x1);
  writeln('x2=',x2);
 end;
end.

program abc;
var
m,a,b,c,z,x1,x2,d:real;
 begin
 writeln(' A=');
 readln(z);
 write(' B='); readln(b);
 write(' C='); readln(c);
 if z=0 then begin
   writeln('повторите ввод A=');
   readln(m);
   end;
   if m<0 then begin
     a:=m;
 D:=b*b-4*a*c;
  if D<0 then begin
  writeln('Нет корней');
  end;
       if D=0 then begin
        writeln('x1=',-b/(2*a))
        end;
  if D>0 then begin
  x1:=(-b-sqrt(d))/(2*a);
  x2:=(-b+sqrt(d))/(2*a);
  writeln('x1=',x1);
  writeln('x2=',x2);
 end;
end;
end.

begin
 repeat
 write(' A='); readln(a);
 if a=0 then writeln('Введите а не равное 0');
 until a<>0;
 write(' B='); readln(b);

program QuadraticEquation;
var
  a, b, c, x1, x2, discriminant : real;
begin
  {ввыод данных}
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  
  {дискриминант}
  discriminant := sqr(b) - 4 * a * c;  
 
  if discriminant < 0 then
    writeln('Квадратное уравнение не имеет корней')
  else
    begin
      if discriminant = 0 then
        begin
          {квадратное уравнение имеет два одинаковых корня}
          x1 := -b / (2 * a);
          x2 := x1;
        end
       else
         begin
           {уравнение имеет два разных корня}
           x1 := (-b + sqrt(discriminant)) / (2 * a);
           x2 := (-b - sqrt(discriminant)) / (2 * a);
         end;
       
       {вывод корней уравнения}
       writeln('x1 = ', x1:8:3);
       writeln('x2 = ', x2:8:3);
     end;
  writeln('Press Enter to Exit...');
  readln;
end.