задача про треугольник, и его медиану.. Опции

[krasnblj]

для всех задач дано N точек плоскости.Найти три точки среди заданых точек чтобы треугольник с вершинами в этих точках содержал бы наименьшую медиану.

ну хоть малейшие подсказки,сам код не начинал.. хотябы связь..

[krasnblj]

PROGRAM minmed;

VAR N,I,J, K:INTEGER;
X,Y:ARRAY [0..100] OF REAL;
mq:REAL;
tk:BOOLEAN;
R:ARRAY [1..3] OF REAL;
M:ARRAY [1..3] OF REAL;
TR:array [1..3,1..2] of real;
LABEL 14;
label 15;
label 1;
label 4;

FUNCTION DL(A,B,C,D:REAL):REAL;
BEGIN
DL:=SQRT((A-B)*(A-B)+(C-D)*(C-D))
END;

function med(a,b,c,d,e,f:real):real;
begin
med:=sqrt( sqr(((a+b)/2)-c) + sqr(((d+e)/2)-f) );
end;

BEGIN
 WRITELN ('нахождение треугольника с минимальной медианой');

  REPEAT
   WRITE ('ведите число точек = ');
   READLN (N);
    IF ((N<3) OR (N>100)) THEN
     WRITELN ('неверное число точек');
  UNTIL ((N>=3) AND (N<=100));
  FOR I:=1 TO N DO
   BEGIN
    REPEAT
     WRITELN ('ввеите координаты ',I,' точки');
     WRITE ('введите абсциссу точки = ');
     READLN (X[I]);
     WRITE ('введите ординату точки = ');
     READLN (Y[I]);
     TK:=TRUE;
      FOR J:=I DOWNTO 1 DO
       BEGIN
        IF ((X[I]=X[J]) AND (Y[I]=Y[J]) AND (I<>J)) THEN
         BEGIN
          WRITELN ('точки не должны повторяться');
          TK:=FALSE;
         END;
       END;
    UNTIL (TK=TRUE);
   END;

  FOR I:=1 TO (N-2) DO
   BEGIN
    FOR J:=I+1 to (n-1) DO
    BEGIN
      1:FOR K:=J+1 TO N DO
BEGIN
           m[1]:=med(x[j],x[k],X[i],y[j],y[k],Y[I]);
           m[2]:=med(x[K],x[I],X[j],y[K],y[I],Y[j]);
           m[3]:=med(x[I],x[J],X[k],y[I],y[J],Y[k]);
          end;
           begin
           writeln (m[1]);
            writeln (m[2]);
             writeln (m[3]);
             

               if ((m[3]<m[2]) and (m[3]<m[1])) then
                m[3]:=mq;
               if ((m[2]<m[3]) and (m[2]<m[1])) then
                m[2]:=mq;
               if ((m[1]<m[2]) and (m[1]<m[3])) then
                m[1]:=mq;
              writeln(mq);
           end;
           end;
           end;

           end.

ну поччеееееемууууу он всегда MQ выводит равный нулю????