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

DEFSNG R, X-Y
DEFINT I-K, M-N
OPTION BASE 1
CLS
INPUT "Vvedite N >= 2"; n
DIM x(n)
DIM y(n)
 
FOR i = 1 TO n
   x(i) = 20 * RND - 10
   y(i) = 20 * RND - 10
NEXT i
 
max = 0
FOR i = 1 TO n - 1
   FOR j = i + 1 TO n
      r = SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2)
      IF r > max THEN
         max = r
         x1 = x(i)
         y1 = y(i)
         x2 = x(j)
         y2 = y(j)
      END IF
   NEXT j
NEXT i
 
IF x1 > x2 THEN SWAP x1, x2
IF y1 > y2 THEN SWAP y1, y2
k = 0
FOR i = 1 TO n
   IF x1 <= x(i) AND x(i) <= x2 AND y1 <= y(i) AND y(i) <= y2 THEN k = k + 1
NEXT i
PRINT "chislo tochek ="; k
END

DEFSNG R, X-Y
DEFINT I-K, M-N
OPTION BASE 1
CLS
INPUT "Vvedite N >= 2"; n
DIM x(n)
DIM y(n)
 
FOR i = 1 TO n
   x(i) = 20 * RND - 10
   y(i) = 20 * RND - 10
NEXT i
 
max = 0
FOR i = 1 TO n - 1
   FOR j = i + 1 TO n
      r = SQR((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2)
      IF r > max THEN
         max = r
         x1 = x(i)
         y1 = y(i)
         x2 = x(j)
         y2 = y(j)
      END IF
   NEXT j
NEXT i
 
IF x1 > x2 THEN SWAP x1, x2
IF y1 > y2 THEN SWAP y1, y2
k = 0
FOR i = 1 TO n
   IF x1 <= x(i) AND x(i) <= x2 AND y1 <= y(i) AND y(i) <= y2 THEN k = k + 1
NEXT i
 
SCREEN 12
WINDOW (-10, 10)-(10, -10)
LINE (x1, y2)-(x2, y1), 11, B
FOR i = 1 TO n
   PSET (x(i), y(i)), 15
NEXT i
PRINT "chislo tochek ="; k
END