паскаль процедуры

[milasssska]

среди матриц С(5,5) и П(4,4) вичеслить сумми отрицательных елементов, расположеных на главной и побочной диагоналях?????плиз......help me

[ROMA2PVT]

uses crt;
Const
k=5;k2=5;
k3=4;k4=4;
Type
   mas=array [1..100,1..100] of integer;
var
b:mas;
a:mas;
i,j,sum,sum2:integer;

function summa(n,m:integer;c:mas):integer;
begin
sum:=0;
sum2:=0;
  for i:=1 to n do
  begin
  for j:=1 to m do
  begin
  if (j=n-i+1) and (c[i,j]<0) then
    sum:= sum+c[i,j];
    if (i=j) and (c[i,j]<0) then
    sum2:=sum2+c[i,j];
    end;
    end;
    end;

begin
randomize;
writeln('Массив B: ');
For i:=1 to k do
begin
For j:=1 to k2 do
begin
b[i,j]:=random(10)-2;
write(b[i,j]:4);
end;
writeln;
end;
summa(k,k2,b);
    writeln;
    writeln('Сумма элементов побочной диагонали массива B:=',sum,'; Сумма элементов главной диагонали массива B:=',sum2);
 writeln('Массив A: ');
For i:=1 to k3 do
begin
For j:=1 to k4 do
begin
A[i,j]:=random(10)-2;
write(a[i,j]:4);
end;
writeln;
end;
summa(k3,k4,a);
    writeln;
    writeln('Сумма элементов побочной диагонали массива A:=',sum,'; Сумма элементов главной диагонали массива A:=',sum2);
 end.

[milasssska]

спасиба.........спасиба....спасиба, вы меня спасли)))))))))