В одномерном массиве определить количество положительных элементов (рекурсивно)

Type mas=array[1..100] of integer;
Var A:mas;
    i,k,n:integer;
Procedure Mass(A:mas;n:integer;Var k:integer);
Var i:integer;
Begin
    For i:=1 to n do
 
     if A[i]>0 then   inc(k)
  ;
End;
Begin
    write('vvedite razm: ');readln(n);
     for i:=1 to n do begin
         writeln ('Vvedite ',i, ' element =');
                  Readln (A[i]);
     End;
    writeln;
    Mass(A,n,k);
    writeln('kol pol el=: ',k);
    readln;
End.

Type mas=array[1..100] of integer;
Var A:mas;
    i,k,n,r:integer;
Procedure Mass(A:mas;k1:integer;var rez:integer);
Begin
 if k1<=n
  then
   begin
     if A[k1]>0 then inc(rez);
     Mass(a,k1+1,rez)
    end 
End;
Begin
    write('vvedite razm: ');readln(n);
     for i:=1 to n do 
      begin
         write('Vvedite ',i, ' element = ');
         Readln (A[i]);
      End;
    writeln;
    k:=1;r:=0;
    Mass(A,k,r);
    writeln('kol pol el=: ',r);
    readln;
End.