Как ускорить программу?

Помогите оптимизировать код

var 
  a,b,c,i,j:int64;
  mas:array[0..1000] of int64;
begin
  read(a,b);
  for i:=1 to a do 
    read(mas[i]);
  for i:=1 to a-1 do
    for j:=i+1 to a do 
      if mas[i]+mas[j]>b then 
        inc(c);
      write(c);
end.