u Pascalu sam radio jako davno (prije 10-15 godina) pa nemoj uzimati zdravo za gotovo ovu moju sugestiju, no mislim da ti je problem u sledećem
var e:array [1..100,1..100] of boolean;
d,l,otac,odc,doc:array [1..100] of integer;
bio:array [1..100] of boolean;
i,j,n,m,a,b,nmostova,t:integer; -...