Исправьте ошибку пожалуйста

[Алиса_1515]

program lab_rabota_2;
uses crt;
var X0,X,X1,Y1,Y:REAL;
a,b:integer;
begin
TextBold;
TextAttr:=16*LightBlue;
clrscr;
textcolor(11);
gotoxy (10,5);
write('Лабораторная работа №2');
gotoxy (10,7);
write('Тема: УСЛОВНЫЙ ОПЕРАТОР');
gotoxy (20,22);
write('Нажмите любую клавишу');
readln;
clrscr;
{Условие 2}
gotoxy (10,5);
write('Условие 2:');
gotoxy (10,7);
write('Решить неравенство:');
gotoxy (10,9);
write('а*х^2 + b > 0');
gotoxy (10,22);
write('Нажмите любую клавишу');
readln;
clrscr;
writeln('Введите коэффициенты неравенства а и b: ');
readln (a,b);
if (a=0) and (b=0) then writeln('Ответ: Бесконечное множество решений')
else if (a=0) and (b<=0) then writeln('Ответ:Нет решений')
else if (a<>0) and (-b/a<0)then writeln('Ответ: Бесконечное множество решений')
else if (a<>0) and (-b/a>0)then writeln('Ответ: -бесконечность',-(sqrt(-b))/a)
else  writeln('Ответ:+бесконечность',sqrt(-b)/a);
END.

Не правильно выдает результат, я не знаю в чем ошибка.

[Xatr]

а*х^2 + b > 0
a*x^2 > -b; /a
x^2 > -b/a; sqrt
x > sqrt(-b/a)
Вроде так.