На вход подается число A и B. напишите программу решения неравенства (X-A)*(X-B)>0 — Pascal(Паскаль)

uses crt;
var a,b:real;
begin
clrscr;
writeln('Введите a,b:');
readln(a,b);
if(a<0)and(b<0)then
 begin
  if a<b then write('x<',a:0:1,';')
  else write('x<',b:0:1,';');
 end
else if(a>0)and(b>0)then
 begin
  if a>b then write('x>',a:0:1,';')
  else write('x>',b:0:1,';');
 end
else write('Неравенство не определено');
readln
end