CountXT Function

Function CountXT(X,N:Integer;T:Tab):Integer; {X:An integer we're looking for; N:Size of T(Array)}
Var i,j:Byte;
Begin
  j=0;
  For i:=1 to N do
  Begin
    if T[i]=X then j:=j+1;
  End;
  CountXT:=J
End;