Курсовая работа: Транспортная задача по критериям стоимости и времени

kon:=false;

repeat

if i<=Length(q)-1 then

begin

If (q[i,0]<>0)and(q[i,2]=m[j,2]) then

begin

n[j+1,0]:=q[i,0];

n[j+1,1]:=q[i,1];

n[j+1,2]:=q[i,2];

q[i,0]:=0;

kon:=true;

end;

i:=i+1;

end

else kon:=true;

until kon=true;

end;

i:=0;

repeat

if (n[i,0]=s[l,r])and(n[i,1]=l)and(n[i,2]=r)then

kon:=false

else kon:=true;

i:=i+1;

until (i>length(n)-1)or(kon=false);

if kon=true then

for i:=0 to length(n)-1 do

begin

q[i,0]:=m[i,0];

q[i,1]:=m[i,1];