Вычислить сумму и число положительных элементов в матрице A[N,N]- Pascal(Паскаль)

const N=10;
var a:array[1..N,1..N]of integer;
i,j:integer;
count,sum:integer;
begin
for i:=1 to N do
 for j:=1 to N do
  a[i,j]:=random(20);
for i:=1 to N do
begin
for j:=1 to N do
begin
if a[i,j]>0 then
begin
count:=count+1;
sum:=sum+a[i,j];
end;
end;
writeln('Count: ',count);
writeln('Sum: ',sum);
end;
end.