Паскаль. Матрица (массив).

[-dD]

День добрый. Задача состоит в следующем.
Найти среднее арифметическое из всех положительных чисел этой матрицы. (с массивом)
Как мне пояснили: размерность матрицы не более 10, числа целые.
Ввод, вывод вроде нормальный, а вот сама суть выводится не правильно.
Вот мой код:

var a,b: array [1..10,1..10] of integer;
i,j,n,c,s,r: integer;
begin
writeln;
writeln('Vvedite razmernost matrici.');
write('Razmernost = ');readln(n);

for i:=1 to n do
for j:=1 to n do
begin
write ('Vvedite element ', i,'-oi stroki ',j,'-go stolbca: ');
readln (a[i,j]);
end;

for i:=1 to n do
for j:=1 to n do
begin
c:=0;
s:=0;
if a[i,j]>0 then
begin
s:=s+a[i,j];
inc(c);
end;
if c>0 then r:=s div c;
end;

writeln;
writeln ('Vot vasha matrica:');
writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to n do write (a[i,j]:5);
writeln;
end;
writeln('Sred. srifm. vsex polozhitelnix 4isel matrici = ',r);
readln;
end.

[DM_bite]

program xx;
const n=10;
var A:array [1..n,1..n] of integer;
    i,j,k,sum: integer;
    begin
    randomize;
    for i:= 1 to n do
     for j:= 1 to n do
     begin
     a[i][j]:=-5+random(n);
     end;
     k:=0;
     sum:=0;
     for i:= 1 to n do
      begin
      for j:= 1 to n do
      begin
       Write(a[i][j],'__');
       end;
       WriteLn;
       end;
     for i:= 1 to n do
      for j:= 1 to n do
      begin
      if a[i][j]>0 then
      begin
      inc(k);
      inc(sum, a[i][j]);
      end;
      end;
      if k=0 then WriteLn('Not')
      else
      WriteLn(sum div k);
      ReadLn;
      end.

[-dD]

спасибо)
С помощью вашего кода разобрался, что обнуления надо вынести до начала цикла перебора.
А то у меня получалось, что значения обнулялись каждый раз.)