Вычислить сумму максимальных элементов всех строк треугольника

var
a:array[1..100,1..100]of integer;
i,j,n:integer;
begin
randomize;
writeln('vvedite kol-vo strok');
readln(n);
for i:=1 to n do
for j:=1 to i do
a[i,j]:=random(100);
writeln('treugolnik chisel:');
for i:=1 to n do
begin
for j:=1 to i do
write (a[i,j]:4);
writeln;
end;
for i:=n downto 2 do
for j:=1 to i-1 do
if a[i,j]>a[i,j+1]then a[i-1,j]:=a[i-1,j]+a[i,j]else a[i-1,j]:=a[i-1,j]+a[i,j+1];
writeln(a[1,1]);
readln;
end.

uses crt;
const maxn=100;
var t,s:array[1..maxn,1..maxn]of integer;
i,j,n,m:integer;
 
function max(a,b:integer):integer;
begin
 if a>b then max:=a else max:=b;
end;
 
begin
 clrscr;
 write('Кол-во строк -> ');
 readln(n);
 for i:=1 to n do
 begin
  write('Строка ',i:2,' -> ');
  for j:=1 to i do read(t[i,j]);
  readln;
 end;
 s[1,1]:=t[1,1];
 for i:=2 to n do
 begin
  s[i,1]:=s[i-1,1]+t[i,1];
  for j:=2 to i-1 do s[i,j]:=max(s[i-1,j],s[i-1,j-1])+t[i,j];
  s[i,i]:=s[i-1,i-1]+t[i,i];
 end;
 
 m:=-1;
 for i:=1 to n do m:=max(m,s[n,i]);
 writeln('MAX=',m);
 readln;
end.