数字金字塔顺推

题目描述
观察下面的数字金字塔。
写一个程序来查找从最高点到底部任意处结束的路径，使路径经过数字的和最大。每一步可以走到左下方的点也可以到达右下方的点。
         7 
      3   8 
    8   1   0 
  2   7   4   4 
4   5   2   6   5 
在上面的样例中,从7 到 3 到 8 到 7 到 5 的路径产生了最大
输入输出格式

输入格式：
第一个行包含 R(1<= R<=1000) ,表示行的数目。
后面每行为这个数字金字塔特定行包含的整数。
所有的被供应的整数是非负的且不大于100。

输出格式：
单独的一行,包含那个可能得到的最大的和。

输入输出样例
输入样例#1：
5
7
3 8
8 1 0
2 7 4 4
4 5 2 6 5 
输出样例#1：

30

var
 a:Array[0..1001,0..1001] of longint;//读入需要数组
 f:array[0..1001]of longint;//记录下每一次行走后产生的结果
 i,j,n,k,max,x,y:Longint;
begin
 read(n);
 for i:=1 to n do
  begin
   for j:=1 to i do
    read(a[i,j]);
    readln;
  end;
 f[1]:=a[1,1];//因为从第一个开始，所以第一个一定是最前面的那个数
 for i:=2 to n do
 begin
  for j:=i downto 1 do
   begin
    x:=a[i,j]+f[j];代表下面的数
    y:=a[i,j]+f[j-1];代表右边的数
    if x>y then max:=x
           else max:=y;//记录下最符合题意（最大数）的路径
    f[j]:=max;//记录这一次的结果并覆盖上一次
    max:=0;//确保max的值不会累加   
   end;
 end;
 max:=0;//确保输出
 for i:=1 to n do
  if max<f[i] then max:=f[i];//运用打擂台比较
  write(max);
  readln;
end.