Принадлежит ли точка x отрезку ав, на паскале?

Предположим что отрезок будет равен X см тогда зная координату точки можно узнать будет ли точка принадлежать отрезку надо просто длинна отрезка минус значение координаты

program zadacha;

var x1,y1,x2,y2,x3,y3,a,b: real;

begin

writeln('Введите координаты x1,y1');

readln(x1,y1);

writeln('Введите координаты x2,y2');

readln(x2,y2);

writeln('Введите координаты x3,y3');

readln(x3,y3);

a:=(y1-y2)/(x1-x2);

b:=((y1+y2)-a*(x1+x2))/2;

if (y3 = a*x3+b) and (x3 > x1) and (x3 < x2) or (y3 = a*x3+b) and (x2 > x1) and (x3 < x1)

then writeln('Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку')

end.