Создайте процедуру, которая решает неравенство ax+b<0

{ Создайте процедуру, которая решает неравенство ax+b<0,при этом a и b
передаются первыми двумя аргументами, третий аргумент отражает тип
результата (пустое множество, любое число, интервал вида (-беско
нечность;c),интервал вида(c;бесконечность);
обоснованно выберите тип этого аргумента), четвертый аргумент - число c.
}
var
  x, y, z: real;
  flag:byte;
 
procedure solve(a,b:real;var restype:byte;var c:real);
begin
  if a=0 then
    begin
      restype:=0;
      exit;
    end;
  if b=0 then
    begin
      restype:=1;
      c:=0;
      exit;
    end;
  c:=-b/a;
  if a>0 then {-8,c}
    restype:=2
  else
    if a<0 then  {c,+8}
      restype:=3;
end;
 
begin
  Write('Введите a:'); readln(x);
  Write('Введите b:'); readln(y);
  solve(x,y,flag,z);
  case flag of
    0: writeln('Пустое множество: решений нет, так как а=0.');
    1: writeln('Любое число: b=0, x всегда равно 0.');
    2: writeln('Интервал -бесконечность, ',z:8:2);
    3: writeln('Интервал ',z:8:2,' +бесконечность')
  else
    writeln('Неизвестная ошибка. Программа завершена.');
  end;
  readln;
end.