仿真出错，求大神帮我看看哪里错了

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
$ z' l. A2 O2 P# \! s' Bis
        i:integer;
! L* r) W* \& |$ O: S' G( l+ H, k: r        Res:string;
        obj:object;
9 n7 ?" L# e5 A3 Q  J0 m; Z+ ~+ cdo
' [# }& |" l$ N" H& Q        if existsObject("Status") then
: m% Y: q9 M& |- t                Status.deleteObject;
' N  P: T$ N# s% z) o: r9 |+ U        end;
) b+ j; Q6 M! ^- i; @! X' ?5 K6 j        for i:=1 to 10 loop
7 F. }9 N" B1 j" ~. i* W- Q                Res:=sprint("Store_",i);
/ n3 X1 K- q- |: q) s                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
4 z/ }% u" U/ Q) k5 o                end;
        next;
; z& O1 F6 p8 p/ h        --shengcheng Status:zimoxingceng
* W# b' r$ a  R. Y( j6 @        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
( L6 Q* k* U) a1 U- H% Y                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
/ m/ w' F* e: _& h' x$ |+ f1 p2 X                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
. J9 Q- n/ y& ]& v3 {. q, f' d' {" X                Obj.Label:=sprint("huojiaceng:",i);
6 n0 B( I" N& `1 B! u7 @6 R$ ]                Obj.inheritFormat:=false;
" P. j; z4 I! H4 d                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
! K1 Z; g# f- T5 B) Q6 r                Obj.ColumnWidth:=3;
        next;
! J: K5 I7 r0 r/ i. T' D( x& W6 n, Z       
8 X6 b9 R1 _2 K  v        .Delivery.MUs.Forklift.speed:=2;
* N- c, B" E- l9 x1 h' F) o        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
% z' V/ R1 X( f# B+ |                WH_var[1,i]:=chr(64+i);
        next;
- x* h1 [2 U+ |0 e) wend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

* N  s: ^. x7 _" ]; d* @% W