Найти количество отрицательных, положительных и нулевых чисел (с использованием функций)

...
For i:=1 to n do
Begin
  Inc(Pologiteln,Ord(m[i]>0));
  Inc(Otricateln,Ord(m[i]<0));
  Inc(Zero,Ord(m[i]=0));
end;
...

var n,i:integer;
Function Pologiteln(m:Longint):Boolean;
Function Otricateln(m:Longint):Boolean;
Function Zero(m:Longint):Boolean;
begin
For i:=1 to n do
Begin
  Inc(Pologiteln,Ord(m[i]>0));
  Inc(Otricateln,Ord(m[i]<0));
  Inc(Zero,Ord(m[i]=0));
  end;
  begin
writeln(m[i]);
end;
begin
write('n = ');
readln(n);
end;
end.

var n,i,a,Pologiteln,Otricateln,Zero:integer;
begin
write('Введите количество чисел n=');
readln(n);
writeln('Введите ',n,' целых чисел разного знака и 0');
Pologiteln:=0;
Otricateln:=0;
Zero:=0;
For i:=1 to n do
 Begin
  readln(a);
  Inc(Pologiteln,Ord(a>0));
  Inc(Otricateln,Ord(a<0));
  Inc(Zero,Ord(a=0));
 end;
writeln('Положительных=',Pologiteln,' отрицательных=',Otricateln,' нолей=',Zero)
end.