Найти из множества материальных точку, которая наиболее близко расположена к центру тяжести этого множества

var
   mas:array [-50..50,-50..50,-50..50] of longint;
   n,x,y,z,i,xc,yc,zc,min1,min2,min3,l,r:longint;
begin
   readln(n);{количесвто точек}
   xc:=0;
   yc:=0;
   zc:=0;
   for x:=-50 to 50 do
      for y:=-50 to 50 do
         for z:=-50 to 50 do
            mas[x,y,z]:=0;{забиваем всё нулями}
   for i:=1 to n do
   begin
      read(x,y,z);
      mas[x,y,z]:=1;{единицы-клетки, которые мы вводим}
   end;
   for x:=-50 to 50 do
      for y:=-50 to 50 do
         for z:=-50 to 50 do
            if(mas[x,y,z]=1) then{если единица, то суммируем координаты}
            begin
               xc:=xc+x;
               yc:=yc+y;
               zc:=zc+z;
            end;
   xc:=trunc(xc/n);{потом ищем среднее}
   yc:=trunc(yc/n);
   zc:=trunc(zc/n);
   l:=0;
   for x:=-50 to 50 do
      for y:=-50 to 50 do
         for z:=-50 to 50 do
            if(mas[x,y,z]=1) then{}
            begin
               r:=trunc(sqrt((x-xc)*(x-xc)+(y-yc)*(y-yc)+(z-zc)*(z-zc)));{находим расстояние от
 текущей точки до центра}
               if(l=0) or (l>r) then{если нуль, то это первая точка.}
               begin
                  otv1:=x;{меняем ответ}
                  otv2:=y;
                  otv3:=z;
                  l:=r;
            end;
   writeln(otv1,otv2,otv3);{вывод}
end.

var
  n :integer;
type point = record
  x: array[1..10] of integer;
  y: array[1.. 10] of integer;
  z :array[1..10] of integer;
end;
var
points:array[1..20] of point;
 
begin
  writeln('Введите n = ')
  readlin(n);
 
 
end.

type point=record
           x,y,z:real;
           end;
//квадрат расстояния между двумя точками
function rast(a,b:point):real;
begin
rast:=sqr(a.x-b.x)+sqr(a.y-b.y)+sqr(a.z+b.z);
end;
var n,i,imn:integer;
    a:array[1..50] of point;
    c:point;
    min:real;
begin
randomize;
repeat
write('Количество точек от 3 до 50 n=');
readln(n);
until n in [3..50];
writeln('Координаты точек');
for i:=1 to n do
 begin
  a[i].x:=-10+random(21);
  a[i].y:=-10+random(21);
  a[i].z:=-10+random(21);
  write(i:2,'(',a[i].x:5:1,';',a[i].y:5:1,';',a[i].z:5:1,') ');
  if i mod 3=0 then writeln;
 end;
writeln;
c.x:=0;
c.y:=0;
c.z:=0;
for i:=1 to n do
 begin
  c.x:=c.x+a[i].x;
  c.y:=c.y+a[i].y;
  c.z:=c.z+a[i].z;
 end;
c.x:=c.x/n;
c.y:=c.y/n;
c.z:=c.z/n;
writeln('Координаты центра тяжести: (',c.x:5:1,';',c.y:5:1,';',c.z:5:1,')');
min:=rast(a[1],c);
imn:=1;
for i:=2 to n do
if rast(a[i],c)<min then
 begin
  min:= rast(a[i],c);
  imn:=i;
 end;
writeln('Наиболее близкая к центру точка №',imn,' ее координаты:(',a[imn].x:5:1,';',a[imn].y:5:1,';',a[imn].z:5:1,')');
write('расстояние=',min:0:1);
end.