Вывести наименьшее расстояние между концами отрезков - Free Pascal - Ответ 3181462

program project;
{$mode Objfpc} {$H+}
 
uses crt, FileUtil, SysUtils;
 
var
  i:integer;
  f:TextFile;
  s:string;
  A:array [1..2,1..4] of integer;
  A1:array [1..4] of real;
 
 
  function Dlina(x1,y1,x2,y2:integer):real;
begin
  result:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
procedure sort_puz(var M:array of real);
var t:real; i,j,c:integer;
begin
 
     c:=high(M);
 
     for i:=1 to c do
     for j:=c downto i do
     if M[j-1]>M[j] then begin
       t:=M[j];
       M[j]:=M[j-1];
       M[j-1]:=t;
     end;
end;
 
begin
  AssignFile(f, 'dani.in');
  Reset(f);
 
  for i:=1 to 4 do begin
    read(f, A[1,i]);
    read(f, A[2,i]);
  end;
  CloseFile(f);
 
    A1[1]:=Dlina(A[1,1],A[2,1],A[1,3],A[2,3]);
    A1[2]:=Dlina(A[1,1],A[2,1],A[1,4],A[2,4]);
    A1[3]:=Dlina(A[1,2],A[2,2],A[1,3],A[2,3]);
    A1[4]:=Dlina(A[1,2],A[2,2],A[1,4],A[2,4]);
 
sort_puz(A1);
 
  AssignFile(f, 'dani.out');
  Rewrite(f);
  Str(A1[1]:10:3,s);
  Write(f,s);
  Closefile(f);
end.