Составьте алгоритм для решения задачи, аналогичной предыдущей, с учетом того, что точки расположены в трехмерном пространстве

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

Формула нахождения длины отрезка по двум точкам:

Алгоритм с полным перебором:
NumberX1:=1;
NumberY1:=1;
NumberZ1:=1;
NumberX2:=1;
NubmerY2:=2;
NubmerZ2:=1;
for i:=1 to N do
   for j:=1 to N do
      if sqrt(sqr(X[i] – X[j]) + sqr(Y[i]-Y[j]) + sqr(Z[i]-Z[j])) > sqrt(sqr(NumberX2-NumberX1) + sqr(NubmerY2-NubmerY1) + sqr(NubmerZ2-NubmerZ1))
   then
   begin
NumberX1:= X[i];
NumberY1:= Y[i];
NumberZ1:= Z[i];
NumberX2:= X[j];
NubmerY2:= Y[j];
NubmerZ2:= Y[j];
end;

Алгоритм с неполным перебором:
NumberX1:=1;
NumberY1:=1;
NumberZ1:=1;
NumberX2:=1;
NubmerY2:=2;
NubmerZ2:=1;
for i:=1 to N do
   for j:=i+1 to N do
      if sqrt(sqr(X[i] – X[j]) + sqr(Y[i]-Y[j]) + sqr(Z[i]-Z[j])) > sqrt(sqr(NumberX2-NumberX1) + sqr(NubmerY2-NubmerY1) + sqr(NubmerZ2-NubmerZ1))
      then
      begin
NumberX1:= X[i];
NumberY1:= Y[i];
NumberZ1:= Z[i];
NumberX2:= X[j];
NubmerY2:= Y[j];
NubmerZ2:= Y[j];
end;