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

begin

Cikle(l,r,x);

Repeat

Vicherk(z,err);

If err=false then

begin

min:=z[0,0];

l:=0;

r:=0;

For i:=0 to length(z)-1 do

for j:=0 to length(z[1])-1 do

if z[i,j]<min then

begin

min:=z[i,j];

l:=i;

r:=j;

end;

Cikle(l,r,x);

end;

until err=true;

end;

Dooptimiz(max,x);

r:=0;l:=0;

for i:=0 to StringGrid1.RowCount-1 do

begin

Memo1.Lines.add('Из пункта производства '+Form5.StringGrid1.Cells[0,i+1]+' в :');

for j:=0 to StringGrid1.ColCount-1 do

if (x[j,i]>0)and(c[j,i]<100)then

begin