Установить, может ли принять потерпевших на борт без изменений маршрута судно - Free Pascal

writeln('Введите координаты отрезка:');
readln(ax,ay,bx,by);
writeln('Введите координаты точки');
readln(x,y);
if ax=bx then {если отрезок вертикальный}
 if (x=ax) and(((y<=ay)and(y>=by))or((y>=ay)and(y<=by))) then write('Принадлежит')
 else write('Не принадлежит')
else
 begin
  p:=(x-bx)/(ax-bx);
  if (abs(p*ay+(1-p)*by-y)<t)and((p>=0)and(p<=1))then write('Принадлежит')
  else write('Не принадлежит');
 end;