Проверить, является ли четырёхугольник квадратом

const
  eps = 1e-6;
 
type
  tPoint = record
    X, Y : Real;
  end;
 
function InputPoint(Msg : String) : tPoint;
var
  P : tPoint;
begin
  WriteLn(Msg);
  Write('X = '); ReadLn(P.X);
  Write('Y = '); ReadLn(P.Y);
  InputPoint := P;
end;
 
function LengthInterval(P1, P2 : tPoint) : Real;
begin
  LengthInterval := Sqrt((P1.X-P2.X)*(P1.X-P2.X)+(P1.Y-P2.Y)*(P1.Y-P2.Y));
end;
 
procedure Sort(var A, B : Real);
var
  T : Real;
begin
  if A > B then
    begin
      T := A; A := B; B := T;
    end;
end;
 
var
  P1, P2, P3, P4 : tPoint;
  L1, L2, L3, L4, L5, L6 : Real;
begin
  P1 := InputPoint('Введите координаты первой точки:');
  P2 := InputPoint('Введите координаты второй точки:');
  P3 := InputPoint('Введите координаты третьей точки:');
  P4 := InputPoint('Введите координаты четвёртой точки:');
  L1 := LengthInterval(P1, P2);
  L2 := LengthInterval(P1, P3);
  L3 := LengthInterval(P1, P4);
  L4 := LengthInterval(P2, P3);
  L5 := LengthInterval(P2, P4);
  L6 := LengthInterval(P3, P4);
  Sort(L1, L2); Sort(L2, L3); Sort(L3, L4); Sort(L4, L5); Sort(L5, L6);
  Sort(L1, L2); Sort(L2, L3); Sort(L3, L4); Sort(L4, L5);
  Write('Заданные координаты ');
  if Not( (Abs(L1 - L2) < eps) and (Abs(L2 - L3) < eps) and (Abs(L3 - L4) < eps) and (Abs(L5 - L6) < eps) ) then Write('НЕ ');
  WriteLn('образуют квадрат.');
end.