一段用PDU格式对中文编码的程序,请大虾指点(20分)

下面是一段用PDU格式对中文编码的程序，里面的1个算法我真的不理解：
为什么移位计数达到7位是要特别处理呢，j这个变量对处理unicode编码好像没用啊？？？？
小弟是一菜鸟，刚学编程清高手赐教。
function Encode1(var s:wideString):String;
var
i,j,len:Integer;
cur:Integer;
t:String;
ws:WideString;
begin
Result:='';
ws:=s;
len:=Length(ws);
i:=1;
j:=0;
while i<=lendo
begin
cur:=ord(ws);
//BCD转换
FmtStr(t,'%4.4X',[cur]);
Result:=Result+t;
inc(i);
//移位计数达到7位的特别处理
j:=(j+1) mod 7;//这有什么用？？返回的是处理好的result字符串呀
end;
end;

没人回答么，问的问题是很菜，但我确实想知道，只要能解答，要多少分请随便讲

8位转7位以后7个字节就变8个了

iie兄不好意思，过了毕业答辩后，在没来过所以不知道你回答我得问题了，
感谢你，现在把分发给你，请务怪