Function CountChar(c : char; List : Ary; Length : Integer) : Integer;

 VAR
 N,Count : Integer;
 
 Begin
   Count     := 0;
   CountChar :=0;

   For N:= 1 to Length do
    If List[N] = c then Count:= Count+1;

   CountChar := Count;

 End;