Расчет и анализ сет.графиков в паскаль

[L3zh1Y]

Всем привет! Помогите пожалуйста, не могу вычислить Tn и резерв...
uses crt;
Var a:array[1..100,1..100]of integer;
Tp,Tn,R:array[1..100]of integer;
i,j,i1,n:integer;
max,min:integer;
BEGIN
clrscr;
a[1,1]:=-1;a[1,2]:=6;a[1,3]:=4;a[1,4]:=-1;a[1,5]:=-1;a[1,6]:=-1;a[1,7]:=-1;
a[2,1]:=-1;a[2,2]:=-1;a[2,3]:=0;a[2,4]:=-1;a[2,5]:=3;a[2,6]:=-1;a[2,7]:=-1;
a[3,1]:=-1;a[3,2]:=-1;a[3,3]:=-1;a[3,4]:=7;a[3,5]:=-1;a[3,6]:=-1;a[3,7]:=-1;
a[4,1]:=-1;a[4,2]:=-1;a[4,3]:=-1;a[4,4]:=-1;a[4,5]:=-1;a[4,6]:=-1;a[4,7]:=-1;
a[5,1]:=-1;a[5,2]:=-1;a[5,3]:=-1;a[5,4]:=-1;a[5,5]:=-1;a[5,6]:=5;a[5,7]:=-1;
a[6,1]:=-1;a[6,2]:=-1;a[6,3]:=-1;a[6,4]:=-1;a[6,5]:=-1;a[6,6]:=-1;a[6,7]:=3;
a[7,1]:=-1;a[7,2]:=-1;a[7,3]:=4;a[7,4]:=-1;a[7,5]:=-1;a[7,6]:=-1;a[7,7]:=-1;
n:=7;
for i:=1 to n do
for j:=1 to n do
begin
max:=Tp[j];
for i1:=i to n do
if Tp[i1]+a[i1,j]>max then max:=Tp[i1]+a[i1,j];
Tp[j]:=max;
end;
For i:=1 to n do
write(Tp[i],' ');
readln;
end.


***
Тр получилось 0,6,6,13,9,17,20, так же как и в письменном виде вычислил.