Опять нули, выручайте Опции

[qwerty)]

Условие:Даны матрицы A(n,n),B(m,m),C(n1,n1).Найти в каждом из исходных массивов суммму квадратов положительных элементов,лежащих на побочной диагонали и ниже её.НАхождение сумммы квадратов положительных элементов,лежащих на побочной диагонали и ниже её оформить в виде подпрограммы.

Вот что я написал,в конце выводит одни нули

program abs;
type vect=array [1..100,1..100] of integer;
var A,B,C:vect;x,y,n,m,n1,sum:integer;
procedure wwod(n,m:integer;var z:vect;q:string);
var i,j:integer;
begin
For i:=1 to n do begin
For j:=1 to m do begin
write (q,'[',i,',',j,']=') ;readln (z[i,j]);
end;end;end;

Procedure holms (var z:vect; const n,m: integer;x:integer);
var i,j:integer;
begin
For i:=1 to n do 
for  j:=1 to n-i do
If z[i,n-i+1]>=0 then sum:=z[i,n-i+1]*z[i,n-i+1];
sum:=0;
end;
begin
Write('n=');
readln(n);
Write('n=');
readln(n);
Write('m=');
readln(m);
Write('m=');
readln(m);
Write('n1=');
readln(n1);
Write('n1=');
readln(n1);
wwod (n,n,A,'A');
wwod (m,m,B,'B');
wwod (n1,n1,C,'C');
holms (A,n,n,x);
writeln('sum=',x);
holms (B,m,m,x);
writeln('sum=',x);
holms (C,n1,n1,x);
writeln('sum=',x);
readln;readln;
end.

[qwerty)]

Неполучается,по-моему,оно что-то не досчитывает или диагональ или еще что-то,очень прошу помочь

Сообщение отредактировано: qwerty) - 20.05.2007 9:13