Function CompareDistance(PlayerX, PlayerY, TargetX, TargetY: Integer): Real;
Var
  player_x,
  player_y,
  sqr_target_x,
  sqr_target_y,
  sqr_target_r: real;
Begin
  If (PlayerX > TargetX) Then
      player_x := PlayerX - TargetX
  Else
      player_x := TargetX + PlayerX;

  If (PlayerY > TargetY) Then
      player_y := PlayerY - TargetY
  Else
      player_y := TargetY + PlayerY;

  sqr_target_x := SQR(TargetX);
  sqr_target_y := SQR(TargetY);
  sqr_target_r := SQRT(sqr_target_x + sqr_target_y);

  Result := sqr_target_r;
End;