Транспортная задача(Паскаль)

[Астасья]

Задание:Решение транс.задачи методом С-З угла и методом min стоимости.На Паскале!!!

program transport;  uses crt;
const n=3;
const m=4;
var
i,j:integer;
c:array[1..n,1..m] of integer;
a:array[1..n] of integer;
b:array[1..m] of integer;



PROCEDURE Vvod1;
Begin
writeln('Введите количество поставщиков= ', n);
writeln('Введите количество потребителей= ', m);
End;

Procedure Vvod2;
begin
 for i:=1 to n do
  begin
  write('Введите мощность ',i,' поставщика =');
  readln(a);
  end;
    for i:=1 to m do
     begin
     write('Введите спрос ',i,' потребителя =');
     readln(b);
     end;
writeln;
end;

Procedure Stoimost;
begin
 for i:=1 to n do
 for j:=1 to m do
    begin
    c[i,j]:=random(9);
    end;
end;

Procedure vivod;
begin
writeln('Мощность поставщиков:');
for i:=1 to n do writeln (,i,'поставщик= ',a);
writeln;
writeln('Спрос потребителей:');
for i:=1 to m do writeln (,i,'потребитель= ',b);
writeln;
writeln('Матрица стоимости перевозок:');
    for i:=1 to n do
     begin
      for j:=1 to m do
      write (c[i,j]:3);
      writeln;
     end;
end;

Begin
Vvod1;
Vvod2;
ClrScr;
Stoimost;
vivod;
end.


Подскажите как дальше(на счет С-З угла)??

[Астасья]

Методом С-З угла я решила,может подскажите на счет метода min стоимости ??

[Астасья]

Вот моё решение(методом минимальной стоимости):     Ответ неверный,что не так???
 
В решение ,которое выше добавила процедуру

procedure minstoim;
begin
sum:=1;
while sum>0 do
begin
    sum1:=0;
    for i:=1 to n do
    z1:=a;
    for j:=1 to m do
    z2:=b[j];
    sum1:=sum1+z1+z2;
    sum:=sum1;
  begin
     min:=c[1,1];
     for i:=1 to n do
     for j:=1 to m do
     if (min>c[i,j]) and (c[i,j]<>0)
     then
          begin min:=c[i,j];
                s:=i;
                q:=j;
          end;
  end;
     if (s=i)and(q=j)and(a>b[j]) then
          begin mas[s,q]:=a-b[j];
                a:=a-b[j];
                b[j]:=0;
          end
     else begin mas[s,q]:=b[j]-a;
                b[j]:=b[j]-a;
                a:=0;
          end;
end;
end;


Begin
Vvod1;
Vvod2;
Stoimost;
ClrScr;
vivod;
minstoim;
v:=0;
 for i:=1 to n do
  for j:=1 to m do
   begin
    v:=v+mas[i,j]*c[i,j];
   end;
writeln('Методом min стоимости = ',v);
end.

Помогите срочно(контрольная)!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Астасья]

Тут есть кто живой?? :)в последнее время вы совсем не отвечаете....