Принадлежит ли точка отрезку

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.

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

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);
if x1=x2 then
 begin
  if((y3>=y1)and(y3<=y2)) or((y3<=y1)and(y3>=y2))
  then writeln(Точка принадлежит отрезку')else writeln('Точка не принадлежит отрезку'')
 end
else
 begin
  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
end.

function AtOtres(x1,y1,x2,y2,x,y:real):Boolean;
Var k1,k2,s1,s2,s3:Real;
begin
k1:=ABS(X1-X2);k2:=ABS(Y1-Y2);s1:=Sqrt(k1*k1+k2*k2);// находим длину отрезка
k1:=ABS(X1-X);k2:=ABS(Y1-Y);s2:=Sqrt(k1*k1+k2*k2);// находим длину 1 гипотенузы
k1:=ABS(X2-X);k2:=ABS(Y2-Y);s3:=Sqrt(k1*k1+k2*k2);// находим длину 2 гипотенузы
s1:=Round(s1*100)/100;s2:=s2+s3;s2:=Round(s2*100)/100;// необходимая точность
If s2=s1 Then Result:=True else Result:=False;
end;

function AtOtres(x1,y1,x2,y2,x,y:real):Boolean;
Var s1,s2:Real;
begin
  s1:=sqrt(sqr(x1-x2)+sqr(y1-y2)); { находим длину отрезка }
  s2:=sqrt(sqr(x1-x)+sqr(y1-y)) + sqrt(sqr(x2-x)+sqr(y2-y)); { находим сумму расстояний до точки }
  Result := abs(s1-s2)<1E-3;  { точность проверки до 0.001 }
end;