Определить количество положительных чисел в массиве

const g=0;
var mas:array[1..12] of real; i,d:integer;
begin
for i:=1 to 12 do
if mas[i]<0 then g:=0
else mas[i]>0 then g:=1
readln (mas[i]);
readln (g);
end.

var mas:array[1..12] of real; i,g:integer;
begin
for i:=1 to 12 do
if mas[i]<0 then g:=0
else if mas[i]>0 then g:=1;
writeln (mas[i]);
writeln (g);
end.

uses crt;
const n=10;
var a:array[1..n] of integer;
i,j,k,s1,s2,s:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 a[i]:=random(50)-25;
 
 for i:=1 to n do
  write(a[i]:4);
   writeln;
 
   k:=0;
   for i:=1 to n do
    if a[i]>0 then
     inc(k);
 
     if k=0 then
      write('Положительных элементов нету... ')
       else
        write('Положительных элементов в массиве = ',k);
readkey;
 
END.

uses crt;
var a:array[1..100] of integer;
i,j,n,k:integer;
BEGIN
clrscr;
randomize;
write('X = ');
read(n);
for i:=1 to n do
 a[i]:=random(-10)+4;
 
 for i:=1 to n do
  write(a[i]:4);
   writeln;
 
   for j:=1 to n-1 do
    for i:=1 to n-1 do
     if a[i]>a[i+1] then
      begin
       k:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=k;
      end;
      writeln;
      for i:=1 to n do
       write(a[i]:4);
readkey;
 
END.