Процедуры: подсчитать количество положительных элементов, найти максимальный элемент

uses crt;
  const n=15;
  type massiv=array[1..n] of integer;
 var a,mas,mis:massiv;
     i,k_1,s_1,max_1,k_2,s_2,max_2,k_3,s_3,max_3: integer;
   {-------------1 функция---------------------------}
     function f_1(a:massiv): integer;
     var i,max: integer;
       begin
       max:=0;
       for i:=1 to n do
       if a[i]>max then max:=a[i];
       f_1:=max;
       end;
   {-------------2 функция----------------------------}
     function f_2(a:massiv): integer;
     var i,k: integer;
       begin
       for i:=1 to n do if a[i]>0 then begin k:=k+1; end;
       f_2:=k;
       end;
   {--------------3 функция---------------------------}
     function f_3(a:massiv): integer;
     var i,s:integer;
       begin
       for i:=1 to n do if a[i]>0 then begin s:=s+a[i]; end;
       f_3:=s;
       end;
 begin
 clrscr;
   {-------------заполнение---------------------------}
   randomize;
   for i:=1 to n do
   begin
   a[i]:=random(10)-5;
   mas[i]:=random(15)-9;
   mis[i]:=random(30)-5;
   end;
   {--------------присв-------------------------------}
   max_1:=f_1(a);
   k_1:=f_2(a);
   s_1:=f_3(a);
   ////////////
   max_2:=f_1(mas);
   k_2:=f_2(mas);
   s_2:=f_3(mas);
   ////////////
   max_3:=f_1(mis);
   k_3:=f_2(mis);
   s_3:=f_3(mis);
   {---------------вывод-----------------------------}
   writeln('max1=',max_1,' kp1=',k_1,' sum1=',s_1);
   writeln;
   writeln('max2=',max_2,' kp2=',k_2,' sum2=',s_2);
   writeln;
   writeln('max3=',max_3,' kp3=',k_3,' sum3=',s_3);
   writeln('---------------------3 массива---------------');
     for i:=1 to n do
     write(a[i]:3);
   writeln;
     for i:=1 to n do
     write(mas[i]:3);
   writeln;
     for i:=1 to n do
     write(mis[i]:3);
 readln;
 end.

{-------------2 функция----------------------------}
     function f_2(a:massiv): integer;
     var i,k: integer;
       begin
       k:=0;
       for i:=1 to n do if a[i]>0 then begin k:=k+1; end;
       f_2:=k;
       end;
   {--------------3 функция---------------------------}
     function f_3(a:massiv): integer;
     var i,s:integer;
       begin
       s:=0;
       for i:=1 to n do if a[i]>0 then begin s:=s+a[i]; end;
       f_3:=s;
       end;