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

{$R *.dfm}
const t=0.001;{точность сравнения вычисленных вещественных чисел}
//функция определения площади треугольника по координатам вершин
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,y3)-plosh(x1,y1,x2,y2,tx,ty)
-plosh(x1,y1,tx,ty,x3,y3)-plosh(tx,ty,x2,y2,x3,y3))<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;
 
procedure TForm1.Button1Click(Sender: TObject);
var ax,ay,bx,by,cx,cy,tx,ty,d:real;
    s:string;
begin
ax:=strtofloat(Edit1.Text);
ay:=strtofloat(Edit2.Text);
bx:=strtofloat(Edit3.Text);
by:=strtofloat(Edit4.Text);
cx:=strtofloat(Edit5.Text);
cy:=strtofloat(Edit6.Text);
if plosh(ax,ay,bx,by,cx,cy)<t then
 begin
  ShowMessage('Треугольник вырожденный, повторите ввод');
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit1.SetFocus;
  exit;
 end;
tx:=strtofloat(Edit7.Text);
ty:=strtofloat(Edit8.Text);
if not prin(ax,ay,bx,by,cx,cy,tx,ty) then
 begin
  ShowMessage('Точка вне треугольника, повторите ввод');
  Edit7.Clear;
  Edit8.Clear;
  Edit7.SetFocus;
  exit;
 end;
s:='Расстояние от точки до стороны АВ='+formatfloat('0.00',vys(ax,ay,bx,by,tx,ty))+#13#10+
   'Расстояние от точки до стороны АC='+formatfloat('0.00',vys(ax,ay,cx,cy,tx,ty))+#13#10+
   'Расстояние от точки до стороны ВC='+formatfloat('0.00',vys(bx,by,cx,cy,tx,ty))+#13#10;
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);
s:=s+'Наименьшее расстояние='+formatfloat('0.00',d);
ShowMessage(s);
end;