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

uses crt;
const t=0.001;
type Point=record
           x,y:real;
           end;
{определение длины стороны}
function Dlina(a,b:Point):real;
begin
Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
{определение площади по Герону}
function Plosh(a,b,c:Point):real;
var p:real;
begin
p:=(Dlina(a,b)+Dlina(b,c)+Dlina(a,c))/2;
Plosh:=(sqrt(p*(p-Dlina(a,b))*(p-Dlina(b,c))*(p-Dlina(a,c))));
end;
{проверка внутри или нет}
function Proverka(a,b,c,d:Point):boolean;
var s,s1,s2,s3:real;
begin
s:=Plosh(a,b,c);{площадь данного треугольника}
s1:=Plosh(a,b,d);{1 маленький}
s2:=Plosh(a,c,d);{2}
s3:=Plosh(b,c,d);{3}
if abs((s1+s2+s3)-s)<t then Proverka:=true
{если площади равны с заданной точностью}
else Proverka:=false;{не равны}
end;
var a,b,c,d:Point;
begin
clrscr;
repeat
writeln('Введите координаты X,Y вершин треугольника:');
write('A:  ');readln(a.x,a.y);
write('B:  ');readln(b.x,b.y);
write('C:  ');readln(c.x,c.y);
{если площадь=0, не треугольник}
if  Plosh(a,b,c)<t then writeln('Это не треугольник! Повторите ввод.');
until Plosh(a,b,c)>t;
write('Ведите координаты X,Y точки внутри треугольника D:  ');
readln(d.x,d.y);
if Proverka(a,b,c,d) then writeln('Точка D лежит внутри треугольника!')
else writeln('Точка D не лежит внутри треугольника!');
readln
end.

uses crt;
procedure Dist(px,py,ax,ay,bx,by:real;var d:real);
var s:real;
begin
s:=abs(ax*(by-py)+bx*(py-ay)+px*(ay-by))/2;
d:=2*s/sqrt(sqr(ax-bx)+sqr(ay-by));
write('Расстояние от точки Р до прямой АВ=',d:0:2);
end;
var px,py,ax,ay,bx,by,d:real;
begin
clrscr;
writeln('Введите координаты точки Р:');
readln(px,py);
writeln('Введите координаты точек на прямой:');
readln(ax,ay,bx,by);
Dist(px,py,ax,ay,bx,by,d);
readln
end.

type Point=record
           x,y:real;
           end;