程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
! G2 a* x  C8 k5 ^* ~2 I8 Y+ L. Bis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
( d2 m$ S- H* r1 c3 B, g        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
" H( F) T5 j# |# D& C) R) K, m                when 16 then
  c7 ]9 L- j; a# I; F! e3 C                        print "Yes";
$ }' {/ ?; H# d2 C                when 32 then
                        print "No";
                else
                        print "Cancel";
* g5 t) K% l" A- y; d" B7 F0 I                end;
4 F4 j* X8 I# f2 f6 r" n        EventController.stop;
/ D$ `6 k( X/ A% Z5 Oend;
PartsTable.delete;
6 ?0 x8 J, D! C) e3 Jfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
" p5 M( g- t4 H/ D                        if D_From_To_Chart[j,i]<=0 then
" r; _) L' u5 r5 l                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
9 H# f1 A; k% w  C                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 c6 S6 e. X/ k8 l% J                                end;
                        end;
                end;
        next;
next;

: ?' Y1 |0 p' v+ i) Z6 s+ ]5 U6 V1 Eend;
0 M% S3 }7 @! p- T& h- n
6 U" E) P% k" ^5 I    Lines :=0;
) \5 P0 O& |5 q+ \( j+ N        for i:1 to Number_Of_Machine loop
6 \' n7 C7 R- O! I        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
) e) m, \5 `+ D8 ?5 c/ B6 k+ @6 ~            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
( |" w! q4 b. |3 ]' }( J. F                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
# C) v+ s9 P0 i! e% @                end;
        next;
        MachineName :=sprint("M",Rows);
4 x) C, w. D' H3 P  y        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
; m( M7 h# F# O) ^1 A        Machine.Name :=MachineName;
8 M7 t- @: c1 x9 F8 y% O* S        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
0 [; I0 u7 J' d        BufName :=sprint("BF",Rows);
. w1 p$ K# F: m  P        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
8 }! X0 t  U8 u$ _" N  T* G                 Buf.Name :=BufName;
, A" x( b6 \& q        Buf.Capacity :=5000;
, f+ f$ H* H5 h" R/ y( ]% ]        Buf.ProcTime :=0;
' ?3 b  O- [* J        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
& a7 W, |1 M) `1 I; a0 S

五五

end 数量不对 且后面两个for循环 赋值没有等号。。。

wudi

老师，我再问一下，哪里的end数量不对啊，我是新手