Выяснить сколько положительных элементов содержит матрица

uses crt;
const max=100;
type mas=array[1..max] of real;
procedure NewMass(v1:mas;x:byte;var v2:mas);
var i:byte;
begin
writeln('Массив средних значений соседних пар:');
for i:=1 to x div 2 do
 begin
  v2[i]:=(v1[2*i]+v1[i*2-1])/2;
  write(v2[i]:0:2,' ');
 end;
end;
var a,b:mas;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива четное число n=');
readln(n);
until n in [2..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
NewMass(a,n,b);
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,i,j:byte;
    k:integer;
begin
clrscr;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
k:=0;
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=sin(i+j/2);
     write(a[i,j]:6:2);
     if a[i,j]>0 then k:=k+1;
    end;
   writeln;
 end;
writeln;
write('Количество положительных=',k);
readln
end.

uses crt;
const n=12;
type mas=array[0..n] of real;
function P(x:real;m:mas):real;
var i,j:byte;
    s,y:real;
begin
s:=m[0];
for i:=n downto 1 do
 begin
  y:=1;
  for j:=1 to i do
  y:=y*x;
  s:=s+m[i]*y;
 end;
P:=s;
end;
var a:mas;
    i:byte;
    s,t,res:real;
begin
clrscr;
writeln('Введите ',n+1,' коэффициентов многочлена:');
for i:=n downto 0 do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Коэффициенты многочлена:');
for i:=n downto 0 do
write(a[i]:0:1,' ');
writeln;
writeln;
write('Введите значение s=');
readln(s);
write('Введите значение t=');
readln(t);
writeln('Значение выражения Р(1)-Р(t)+P^2(s-t)-P^3(1) при s=',s:0:2,'  t=',t:0:2);
write('Res=',P(1,a)-P(t,a)+sqr(P(s-t,a))-sqr(P(1,a))*P(1,a):0:2);
readln
end.