CountT Procedure

Procedure CountT(var R:Tab;N:Integer;T:Tab); {N:Size of T(Array)}
Var i,j:Byte;
Begin
  For i:=1 to N do
  Begin
    j=0;
    For j:=1 to N do
    Begin
      if T[j]=T[j] then j:=j+1;
    End;
    R[i]:=j;
  End;
End;