Программа для неравенства

[JellyFilled]

Дано неравенство ax^2+bx+c>=0
Можете помочь дописать программу и отдельно процедуру, которая вычисляет то же самое

var a, b, c, x1, x2, min, max, d: real;
begin
 writeln('Введите коэффиценты квадратного неравенства:');
 readln(a,b,c);
 d:=sqr(b)-4*a*c;
 if d<0
  then
   if a<0
    then writeln('Решения нет!')
    else writeln('Решение на всей области определения!');;
 if d=0
  then
   if a>0
    then writeln('Решение на всей области определения!')
    else writeln('x = ', -b/(2*a));
 if d>0
  then
   begin
    x1:= (-b+sqrt(d))/(2*a);
    x2:= (-b-sqrt(d))/(2*a);
    if x1<x2
     then
      begin
       min:= x1;
       max:= x2;
      end
     else
      begin
       min:= x2;
       max:= x1;
      end;
    if a>0
     then writeln('(-беск; ', min, ') U (', max, '; +беск)')
     else writeln('(', min, '; ', max, ')');
   end;
end.