Определить номер точки, для которой суммарное расстояние до всех остальных точек минимальное

Program Tochki;
uses crt;
const Nmax=100;
type Xmas=array[1..Nmax] of integer;
Var     p,x1,i,j,n:integer;
        xn,x2,h,Rmin,Otrezok:real;
        X:Xmas;
function len(x1,x2:real):real;
Begin
     for i:=1 to n do
     for j:=0 to n do
     len:=(i-j);
End;
Begin
     clrscr;Rmin:=0;
     writeln('Vvedite Kolichestvo tochek');
     readln(n);
     if n in [1..Nmax] then
     writeln('Vvedite Koordinati tochek');
     for i:=1 to n do
     Begin
          write('X[',i,']=');
          readln(X[i]);
     End;
     writeln('Massiv tochek');
     for i:=1 to n do
     write(X[i],' ');
     Begin
          Rmin:=X[1];
          for i:=2 to n do
          for j:=0 to n do
 
          if Rmin<len(i,j) then
          Rmin:=len(i,j);
     End;
          Begin
 
     End;
     write('Rmin=',Rmin:2:2); readkey;End.

uses crt;
const max=100;
var x:array[1..max] of integer;
    n,i,j,it:byte;
    mn,rs:integer;
begin
clrscr;
repeat
write('Количество точек n=');
readln(n);
until n in [1..max];
writeln('Введите координату Х',n,' точек:');
for i:=1 to n do
 begin
  write('x[',i,']=');
  readln(x[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(x[i],' ');
writeln;
writeln;
mn:=0;it:=1;{за минимум возьмем сумму растояний от первой точки}
for i:=2 to n do
mn:=mn+abs(x[i]-x[1]);
for i:=1 to n do{найдем самое маленькое}
 begin
  rs:=0;
  for j:=1 to n do
  if i<>j then rs:=rs+abs(x[i]-x[j]);
  if rs<mn then
   begin
    mn:=rs;
    it:=i;{и номер этой точки}
   end;
 end;
writeln('Минимальное суммарное расстояние до остальных точек имеет точка № ',it);
write('оно составляет ',mn);
readln
end.