Кратчайший путь

type tPoint=record x,y:real;end;
function readP(n:string):tPoint;
var p:tPoint;begin Write('Введите координаты точки ',n,': ');ReadLn(p.x,p.y);readP:=p;end;
function d(a,b,c:tPoint):real;
begin d:=a.x*b.y-a.x*c.y-a.y*b.x+a.y*c.x+b.x*c.y-b.y*c.x;end;
function l(a,b:tPoint):real;begin l:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));end;
function s(v:real):integer;begin if v<0 then s:=-1 else if v>0 then s:=1 else s:=0;end;
function x(a,b:real):real;begin if a<b then x:=a else x:=b;end;
var m,n,a,b:tPoint;
begin
  m:=readP('m');n:=readP('n');a:=readP('a');b:=readP('b');
  Write('Минимальное расстояние от a до b равно ');
  if(d(m,n,a)=0)and(d(m,n,b)=0)or(s(d(m,n,a))=s(d(m,n,b)))then WriteLn(l(m,n))
  else WriteLn(x(l(a,m)+l(a,n),l(b,m)+l(b,n)));
end.

//растояние между точками
function Rasst(x1,y1,x2,y2:real):real;
begin
Rasst:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var mx,my,nx,ny,ax,ay,bx,by,s:real;
begin
//пусть координаты корректно заданы, например
mx:=100;
my:=100;
nx:=200;
ny:=300;
ax:=200;
ay:=50;
bx:=200;
by:=300;
if Rasst(mx,my,ax,ay)+Rasst(nx,ny,ax,ay)<Rasst(mx,my,bx,by)+Rasst(nx,ny,bx,by)
then  s:=Rasst(mx,my,ax,ay)+Rasst(nx,ny,ax,ay)
else  s:=Rasst(mx,my,bx,by)+Rasst(nx,ny,bx,by);
write('Кратчайшее расстояние=',s:0:2);
end.