Как можно ускорить выполнение программы?

var
x,y:array [1..100000] of integer;
n,i,j,s:longint;
begin
s:=0;
read(n);
for i:=1 to n do read(x[i],y[i]);
for i:=1 to n-1 do
  for j:=i+1 to n do
  s:=s+abs(x[i]-x[j])+abs(y[i]-y[j]);
write(s);
end.

var
  x, y: array of integer; //динамические массивы. Экономия!
  n, s: integer;//longint=integer в PABC.NET, да и не все переменные можно тут объявлять
 
begin
  s := 0;
  readln(n);
  //Устанавливаем размеры массивов
  SetLength(x, n);
  SetLength(y, n);
  
  for var i := 0 to n - 1 do 
    read(x[i], y[i]);
  
  for var i := 0 to n - 2 do
    for var j := i + 1 to n - 1 do
      s := s + abs(x[i] - x[j]) + abs(y[i] - y[j]);
  
  writeln(s);
end.

type
  numberRange = 1 .. 10000;
var
  xCount, yCount: array [numberRange] of Integer;
  n, x, y, s, i, j, xc, yc: Integer;
begin
  Read(n);
  for i := 1 to n do
  begin
    Read(x, y);
    inc(xCount[x]);
    inc(yCount[y]);
  end;
  s := 0;
  xc := 0;
  yc := 0;
  for i := Low(numberRange) to High(numberRange) do
  begin
    for j := 1 to xCount[i] do
    begin
      inc(s, (2 * xc - n + 1) * i);
      inc(xc);
    end;
    for j := 1 to yCount[i] do
    begin
      inc(s, (2 * yc - n + 1) * i);
      inc(yc);
    end;
  end;
  Write(s);
end.