Написать функцию для вычисления количества положительных элементов массива

unit mod_1;
interface
uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
var b:boolean;
procedure Vvod(var a:mas; var n:integer);
function Kol(a:mas;n:integer):integer;
procedure Prz(a:mas;n:integer;var p:real);
implementation
procedure Vvod(var a:mas; var n:integer);
var i:integer;
begin
randomize;
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, целые числа:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
readln;
b:=true
end;
function Kol(a:mas;n:integer):integer;
var i,k:integer;
begin
clrscr;
if not b then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
k:=0;
for i:=1 to n do
if a[i]>0 then k:=k+1;
writeln('K=',k);
readln;
Kol:=k;
end;
procedure Prz(a:mas;n:integer;var p:real);
var i:integer;
begin
clrscr;
if not b then
 begin
  writeln('Массив еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
p:=1;
for i:=1 to n do
p:=p*a[i];
writeln('Произведение всех элементов=',p:0:0);
readln
end;
end.

uses crt,mod_1;
var a:mas;
    n,k:integer;
    p:real;
    w:char;
begin
clrscr;
b:=false;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-создать массив');
writeln('2-количество положительных');
writeln('3-произведение элементов');
writeln('другое - выход');
readln(w);
case w of
'1':Vvod(a,n);
'2':k:=Kol(a,n);
'3':Prz(a,n,p);
else exit;
end;
until not (w in ['1'..'3']);
end.