... i,j,First,Last,v:Integer; Begin Fillchar(TraceX,Sizeof(TraceX),0); Fillchar(TraceY,Sizeof(TraceY),0); First:=1;Last:=0; For i:=1 to m do If x[s,i]inc(last); Queue[last]:=i; traceX[i]:=-1; end; While First<=Last ... n do If (traceY[j]=0)and(x[i,j]traceY[j]:=i; If x[j,t]Finish:=j; FindPath:=True; Exit; end; For v:=1 to m do if (TraceX[v]=0)and(x[v,j]>0) then begin Inc(Last); Queue[Last]:=v; TraceX[v]:=j; ... Const InputFile=’Input.Txt’; OutputFile=’Output.Txt’; Var a,x:Array[1..100,1..100]of Integer; TraceX,TraceY:Array[1..100]of Integer; p:Array[1..100]of Integer; Start,Finish,n,m,s,t,Delta,No:Integer;...