Полный перебор массива чисел

if a[i]>a[j] then
 begin
  inc(w[2]); //увеличиваем количество последовательностей длины 2 на единицу
  inc(w[c[j]+1],m[j]); //увеличиваем количество подпоследовательностей длины c[j]+1 на количество подпоследовательностей c[j] у элемента j
 end;

Var
     a,d: Array[1..2000] of Integer;
     i,j,ans,N: Integer;
Begin
     readln(N);
     for i:=1 to N do
     begin
          read(a[i]);
     end;
     readln;
 
     for i:=1 to N do
     begin
          d[i] := 1;
          for j:=1 to i-1 do
          begin
               if (a[j] < a[i]) then
               begin
                    if d[j]+1 > d[i] then d[i]:=d[j]+1;
               end;
          end;
     end;
 
     ans:=d[1];
     for i:=1 to N do
     begin
          if d[i] > ans then ans:=d[i];
     end;
 
     writeln(ans);
     readln;
End.

for i:=1 to n do
begin
w[i]:=1;
for j:=1 to i-1 do
 if a[i] > a[j] then inc(w[i],w[j]);
end;