Определите количество общих точек треугольника с отрезком

uses crt;
type Point=record{тип точка с полями-координатами}
           x,y:real;
           end;
{функция определения пересечения 2х отрезков, проходящих через данные точки}
function Peres(t11,t12,t21,t22:Point):boolean;
var a,b,c,d,e,f:real;
    dt,ds,det,t,s:real;
begin
result:=true;
{вычислим координаты векторов}
a:=t12.x-t11.x; { x2-x1;}
b:=t21.x-t22.x; { x3-x4;}
c:=t21.x-t11.x; { x3-x1;}
d:=t12.y-t11.y; { y2-y1;}
e:=t21.y-t22.y; { y3-y4;}
f:=t21.y-t11.y; { y3-y1;}
det:=a*e-b*d;{вычислим определитель матрицы}
if det=0 then result:=false{прямые не пересекаются}
else
 begin{определяем принадлежит ли точка пересечения обоим отрезкам}
  dt:=c*e-f*b;
  ds:=a*f-c*d;
  t:=dt/det;
  s:=ds/det;
  if (s>=0) and (s<=1){принадлежит 1}
  and(0<=t) and (t<=1){принадлежит 2} then result:=true
  else result:=false;
 end;
end;
var a,b,c,d,e:Point;
    k:byte;
begin
writeln('Введите координаты вершин треугольника:');
readln(a.x,a.y,b.x,b.y,c.x,c.y);
writeln('Введите координаты концов отрезка:');
readln(d.x,d.y,e.x,e.y);
k:=0;
if Peres(a,b,d,e) then k:=k+1;
if Peres(b,c,d,e) then k:=k+1;
if Peres(a,c,d,e) then k:=k+1;
write('Количество точек пересечения=',k)
end.