о ежедневном количестве выпускаемой продукции каждым цехом некоторого предприятия в течение некоторого промежутка времени оформлен

[scarecrow_1]

о ежедневном количестве выпускаемой продукции каждым цехом некоторого предприятия в течение некоторого промежутка времени оформлены в виде таблицы:
определить порядок занимаемых мест каждым цехом по итогам работы за первую трудовую неделю; (через двумерный массив)

[Aleksandr H.]

const n=3; m=10;
type masiv = array[1..100,1..100] of integer;
var i,j,z,x,c,v,b,s:integer;
a:masiv;
begin
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
for z:=1 to n do
for x:=z to n do
begin
v :=0;
for c:=1 to m do v:=v+a[z,c];
b :=0;
for s:=1 to m do b:=b+a[x,s];
if v<b then
for c:=1 to m do
begin
v:=a[z,c];
a[z,c]:=a[x,c];
a[x,c]:=v
end;
end;
for i:=1 to n do
begin
v:=0;
for j:=1 to m do v:=v+a[i,j];
write(v,' : ');
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end.