Среди заданного на плоскости точек найти такую, сумма расстояний от который до остальных МАКСИМАЛЬНА

uses crt;
const n=20;
function Rast(t1,t2,p1,p2:integer):real;{функция определения расстояния}
begin
Rast:=sqrt(sqr(t1-p1)+sqr(p1-p2));{широко известная в узких кругах формула}
end;
var a:array[1..n,1..2] of integer;{массив координат точек}
    max,sm:real;{макс. расст., сумма расст.}
    i,j,imax:byte;{счетчики циклов, номер нужной точки}
    xmax,ymax:integer;{координаты нужной точки}
begin
clrscr;
randomize;
writeln('Mnozestvo tochek:');
for i:=1 to n do
for j:=1 to 2 do
a[i,j]:=random(10)-4;{присваиваем значения координат}
write('i= '); {выводим номера точек}
for i:=1 to n do
write(i:3);
writeln;
write('x= ');{выводим кординату х}
for i:=1 to n do
write(a[i,1]:3);
writeln;
write('y= ');{выводим координату у}
for i:=1 to n do
write(a[i,2]:3);
writeln;
max:=0;imax:=0;
for i:=1 to n do {перебираем все точки}
  begin
   sm:=0;
   for j:=1 to n do {измеряем расстояние до всех точек, сама с собой=0}
   sm:=sm+Rast(a[i,1],a[i,2],a[j,1],a[j,2]);{считаем сумму}
   if sm> max then 
     begin
      max:=sm;{находим макс}
      imax:=i;{запоминаем номер}
      xmax:=a[i,1];{запоминаем координаты}
      ymax:=a[i,2];
     end;
  end;
write('Max summu rasst imet tochka ',imax,'=a[',xmax,',',ymax,']');
readln
end.