вычисление в процедуре

[desnet]

Вычислить сумму и число положительных элементов матрицы,находящихся над главной диагональю.Вычисление произвести в процедуре. Как изменить программу? Как произвести вычисление в процедуре?

program lab_kr;
var A:array[1..100,1..100] of integer; 
    i,j,n:integer; 
    sum,kol:integer; 
 
begin
write ('Vvedite razmer massiva A');
readln (n); 
 
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; 
 
write ('Vot vvedennyy vami massiv A- ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end; 
sum:=0; kol:=0; 
 
for i:=1 to n do
for j:=1 to n do 
if (A[i,j]>0) and (i<j) then 
begin inc(kol); sum:=sum+A[i,j]; end; 
writeln;
writeln('Summa= ',sum); 
writeln('Kol-vo= ',kol);
readln;
end.

[Poma][a]

Код оформляй правильно! (кнопочка с #)

program lab_kr;
type
           TArr =  array[1..100,1..100] of integer;

procedure Work (const a : TArr; var sum, kol : Integer);

var
           j, i : Integer;
begin
           sum:=0; kol:=0; 

           for i:=1 to n do
           for j:=1 to n do  
           if (A[i,j]>0) and (i<j) then 
           begin inc(kol); sum:=sum+A[i,j]; end; 
end;
 
var 
           a : TArr;
i,j,n:integer; 
sum,kol:integer; 

begin
write ('Vvedite razmer massiva A');
readln (n); 

for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; 

write ('Vot vvedennyy vami massiv A- ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end; 

writeln;
writeln('Summa= ',sum); 
writeln('Kol-vo= ',kol);
readln;
end.

не проверял