Найти расстояние от заданной точки до ближайшей стороны треугольника

S:=abs((aX–cX)*(bY–cY)–(bX–cX)*(aY–cY)))/2;

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;//площадь треуголника ABP
d:=2*s/sqrt(sqr(ax-bx)+sqr(ay-by));//длина высоты из P на АВ
end;
var px,py,ax,ay,bx,by,cx,cy,d:real;
begin
writeln('Введите координаты точки Р:');
readln(px,py);
writeln('Введите координаты точек А,В,С');
readln(ax,ay,bx,by,cx,cy);
Dist(px,py,ax,ay,bx,by,d);
writeln('Расстояние от точки Р до прямой АВ=',d:0:2);
Dist(px,py,ax,ay,cx,cy,d);
writeln('Расстояние от точки Р до прямой АC=',d:0:2);
Dist(px,py,bx,by,cx,cy,d);
writeln('Расстояние от точки Р до прямой ВC=',d:0:2);
end.

unit proc;
interface
const t=0.001;//точность сравнения вычисленных вещественных чисел
//функция определения площади треугольника по координатам вершин
function plosh(x1,y1,x2,y2,x3,y3:real):real;
//функция проверки лежит ли точка в треугольнике
function prin(x1,y1,x2,y2,x3,y3,tx,ty:real):boolean;
//функция определения высоты
function vys(x1,y1,x2,y2,tx,ty:real):real;
implementation
function plosh(x1,y1,x2,y2,x3,y3:real):real;
begin
plosh:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2;
end;
//функция проверки лежит ли точка в треугольнике
function prin(x1,y1,x2,y2,x3,y3,tx,ty:real):boolean;
begin
prin:=abs(plosh(x1,y1,x2,y2,x3,y2)-plosh(x1,y1,x2,y2,tx,ty)
-plosh(x1,y1,tx,ty,x3,y2)-plosh(tx,ty,x2,y2,x3,y2))<t
end;
//функция определения высоты
function vys(x1,y1,x2,y2,tx,ty:real):real;
begin
vys:=2*plosh(x1,y1,x2,y2,tx,ty)/sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
end.

uses crt,proc;
var ax,ay,bx,by,cx,cy,tx,ty,d:real;
begin
repeat
writeln('Введите координаты вершин треугольника');
read(ax,ay,bx,by,cx,cy);
if plosh(ax,ay,bx,by,cx,cy)<t then
writeln('Треугольник вырожденный, повторите ввод')
until plosh(ax,ay,bx,by,cx,cy)>t;
repeat
writeln('Введите координаты точки внутри треугольника:');
read(tx,ty);
if not prin(ax,ay,bx,by,cx,cy,tx,ty) then
writeln('Точка вне треугольника, повторите ввод')
until prin(ax,ay,bx,by,cx,cy,tx,ty);
writeln('Расстояние от точки до стороны АВ=',vys(ax,ay,bx,by,tx,ty):0:2);
writeln('Расстояние от точки до стороны АC=',vys(ax,ay,cx,cy,tx,ty):0:2);
writeln('Расстояние от точки до стороны ВC=',vys(bx,by,cx,cy,tx,ty):0:2);
if vys(ax,ay,bx,by,tx,ty)<vys(ax,ay,cx,cy,tx,ty)then
d:=vys(ax,ay,bx,by,tx,ty)else d:=vys(ax,ay,cx,cy,tx,ty);
if vys(bx,by,cx,cy,tx,ty)<d then d:=vys(bx,by,cx,cy,tx,ty);
writeln('Наименьшее расстояние=',d:0:2)
end.