Вот что я написал,в конце выводит одни нули
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.