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

uses crt;
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 ;
var ax ,ay, bx, by, cx, cy,tx, ty, d : real;
begin
clrscr;
repeat
writeln ( 'Введите координаты вершин треугольника' ) ;
readln( 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