xxxxxxxxxxxxxxx
s:=0; {объяви еще одну переменную}
for i:=1 to n do
for j:=i+1 to m do
begin
if t[i,j]=0 then s:=s+1;
end;
writeln (s);
...


как то так...

P.S. Язык не "турба паскаль" а Paskal !!! Turbo Pascal это просто компилятор!