Задача "Треугольник"

var i,j, N,max :integer;
    a: array of array of integer;
    input, output : text;
 
function Find(x,y : integer):integer;
var k: integer;
begin
if x=0 then
        k:=0;
 
k:=k+a[x,y];
Writeln(k);   //Не обязательный элемент, для удобства.
 
if x=N-1 then
             begin
             Find:=0;
             if k>max then max:=k;
             exit;
             end;
 
 if y=0 then
                      Find:=Find(x+1,y+1) else
                Find:=Find(x+1,y-1)+Find(x+1,y+1);
 
end;
 
begin
Assign(input, 'input.txt');
Reset(input);
Assign(output, 'output.txt');
Rewrite(output);
Readln(input, N);
Setlength(a, N, N);
 
for i:=0 to N-1 do
 for j:=0 to i do
   begin
   Read(input, a[i,j]);
   end;
Close(input);
 
max:=0;
Find(0,0);
Write(output, max);
Close(output);
end.

var i,j, n,m : integer;
   a : array of array of integer;
 
 
function max(a,b : integer):integer;
begin
if a>b then max:=a else max:=b;
end;
 
begin
reset(input, 'input.txt');
rewrite(output, 'output.txt');
Readln(N);
Setlength(a, n+1,n+1);
for i:=1 to n do
 for j:=1 to i do
  Read(a[i,j]);
 
for i:=2 to N-1 do
 for j:=1 to i do
  begin
   a[i,j]:=a[i,j]+max(a[i-1,j-1],a[i-1,j+1]);
  end;
 
 
m:=0;
for i:=1 to N do
  if a[N-1, i]>m  then m:=a[N-1, i];
Write(m);
end.