求最长不下降序列

题目：

设有n(n<=1000)个不相同的整数(小于32767)组成的数列，记为：
　　　　a1,a2,…,an,其中任意两个数不相同。
　　例如：3,18,7,14,10,12,23,41,16,24。
　　若有 且有 。则称为长度为e的不下降序列。如上例中，3,18,23,24为一个长度为4的不下降序列，同时也有3,7,10,12,16,24长度为6的不下降序列。程序要求，当原始数列给出后，求出最长的不下降数列的长度。

作者思路：dp。
递推公式：f[i]=max{f[j]+1}

代码：

var f,a:array[0..1001] of longint;
    n,i,j,l,m:longint;
function max(x,y:longint):longint;
begin
  if x>y then exit(x) else exit(y);
end;
begin
  read(n);
  for i:=1 to n do read(a[i]);
  for i:=n-1 downto 1 do
  begin
    l:=1; 
    for j:=i+1 to n do
      if a[i]<a[j] then l:=max(l,f[j]+1);
    f[i]:=l;
  end;
  for i:=1 to n do
    if f[i]>m then m:=f[i];
  write(m);
end.