Решение неравенства. Как улучшить/упростить программу? - PascalABC.NET

Формулировка задачи:

Начинаю изучать по школьному учебнику. Программа для решение неравенства (x+a)/bx<0, где a >=0(любое неотриц. число) и b не равно 0. Первая моя программа серьезнее хеллоуворлда. Быть может ее можно как-то упростить?

                    Листинг программы
                
 
                        
                          
                    
program abc;
var a,b: real;
begin
  readln(a,b);
  if b = 0 then //ОДЗ: b не равно 0
      begin
        writeln ('нет решений');
        exit
      end;
  if a < 0 then
    begin 
      writeln('нет решений');
      exit
    end;    
  if a = 0 then
  begin
    writeln('x < 0')
  end;  
  if a > 0 then
    begin
      writeln(-a, ' < x < 0')
    end;  
   writeln('x > 0 или x < 0');
   readln
end.

Решение задачи: «Решение неравенства. Как улучшить/упростить программу?»

Листинг программы

program abc;
var a,b: real;
begin
  readln(a,b);
  if b = 0 then //ОДЗ: b не равно 0
      begin
        writeln ('нет решений');
        exit
      end;
  if a < 0 then
    begin 
      writeln('нет решений');
      exit
    end
  else
    if a = 0 then
      writeln('x < 0')  
    else
      writeln(-a, ' < x < 0');     
  writeln('x > 0 или x < 0');
  readln
end.

Объяснение кода листинга программы

Вводимые значения переменных a и b считываются из стандартного ввода.
Если b равно 0, то выводится сообщение нет решений и программа завершается.
Если a меньше 0, то выводится сообщение нет решений и программа завершается.
Если a равно 0, то выводится сообщение x < 0.
Если a не равно 0, то выводится сообщение -a < x < 0.
Выводится сообщение x > 0 или x < 0.
Программа ожидает ввода с клавиатуры для завершения работы.