Расстояние от точки до отрезка - Free Pascal

var x0,y0,x1,y1,x2,y2,a,b,c,s,h,d:real;
begin
readln(x0,y0,x1,y1,x2,y2);
{квадраты боковых сторон треугольника}
a:=sqr(x0-x1)+sqr(y0-y1);
b:=sqr(x0-x2)+sqr(y0-y2);
{квадрат основания}
c:=sqr(x2-x1)+sqr(y2-y1);
{площадь треугольника}
s:=abs((x0-x2)*(y1-y2)-(x1-x2)*(y0-y2))/2;
{высота к основанию}
h:=2*s/sqrt(c);{и его высоту}
writeln('a=',sqrt(a):0:2,' b=',sqrt(b):0:2,' c=',sqrt(c):0:2,' h=',h:0:2);
{если треугольник тупоугольный, найдем до какого конца расстояние меньше}
if (a+c<b)or(b+c<a) then
 begin
  if a<b then d:=sqrt(a)
  else d:=sqrt(b);
 end
else d:=h;{если не тупоугольный, расстояние=высоте}
write(d:0:2);
end.