Вычислить среднее арифметическое положительных элементов матрицы — Pascal(Паскаль)

uses crt;
var
a:array[1..100]of real;
i,n,kol:integer;
sr,sum:real;
begin clrscr;
writeln('vvedite razmer massiva');
kol:=0;
sum:=0;
write('n=');
read(n);
writeln('vvedite massiv');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln('+++++++++++++++++++');
for i:=1 to n do
if a[i]>0 then
 begin
  sum:=sum+a[i];
  kol:=kol+1;
 end;
sr:=sum/kol;
writeln('sredn.arifm=',sr:2:3);
readkey;
end.

Var const n=10; m=10;
a:array[1..n, 1..m] of integer;
i,j:integer;
sr,t,w:real;
begin
t:=0;
w:=0;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
a[i,j]:=random(100)-20
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]>0 then
begin
t:=t+a[i,j];
w:=w+1
end;
else continue
end;
sr:=t/w;
writeln('srednee arifm=', sr:6:3)
end.