Процедура

[Nexi]

Ещё раз здравствуйте. Помогите плз разобраться с процедурой.

Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с убыванием характеристик (оформить в виде процедуры)

[mifomen]

1. Процедура это ищет сумму отрицательных элементов?

2. А 2-ая просто надо упорядочить элементы матрицу?

Так я правильно понял 1 задание?

[mifomen]

1. Процедура это ищет сумму отрицательных элементов?

2. А 2-ая меняет строки, с убыванием каких характеристик?

[mifomen]

[B]Выберешь себе сам какие переменные сделать локальными, глобальными, формальными и фактическими.

program matr;
uses crt;
var a:array [1..7,1..7] of integer;
    d,t,s,n,m,i,j:integer;

procedure vvod;
 begin
   repeat readln(n,m); until (n>0) and (n<=7) and (m>0) and (m<=7);
    for i:=1 to n do begin
     for j:=1 to m do begin
     a[i,j]:=random(20)-4; write(a[i,j]:4); end; writeln; end;
      writeln;
 end;
procedure upr;
 {var d,t:integer;}
 begin
     for i:=1 to n-1 do
      for d:=i+1 to n do
     if a[d,j]>a[i,j] then begin
       for j:=1 to m do begin
    t:=a[d,j]; a[d,j]:=a[i,j]; a[i,j]:=t;
                        end;
     end;
 end;
procedure sumotr;
 begin  s:=0;
  for i:=1 to n do
   for j:=1 to m do
   if a[i,j]<0 then s:=s+a[i,j];
   writeln(s);{Summa}
 end;

procedure vivod; {Prosmotr resultata}
 begin
       for i:=1 to n do begin
     for j:=1 to m do begin
     write(a[i,j]:4); end; writeln; end;
 end;

begin clrscr; randomize;
 vvod; upr;vivod; sumotr;
readkey
end.