Поиск точки в фигуре

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.