程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 `) a  B/ j; |; K% C6 w# tis
- Y1 K" G" B" y        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
; \) K# E* D" e& x. r8 T5 `do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ E0 `0 {" y2 B7 j5 |5 k4 U6 N                inspect messageBox("Number Wrong...,",50,13)
# ^! M! d, ]1 o# j- q                when 16 then
2 A& R3 L- `- a( X                        print "Yes";
                when 32 then
                        print "No";
* G+ s, f7 A0 e& ^3 B                else
8 U) R( j1 q3 n5 ^                        print "Cancel";
                end;
1 e; x" c+ v, j7 o( H        EventController.stop;
! Y! ?" S3 U5 u# s# |7 dend;
1 U& _. M. g) R# D+ b9 m# h3 R7 ]; YPartsTable.delete;
! v( y, P" ~0 {0 x$ b; X+ F. Tfor i:=1 to Number_Of_Machine loop
* N# O+ C/ J7 @2 |+ z( {        for j:=1 to Number_Of_Machine loop
2 l( Q5 U$ J$ Z/ `                if j<i then
# E: h4 \4 z, O0 A                        if D_From_To_Chart[j,i]<=0 then
' q' }" \: s$ |" ]3 f                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ B" O4 z9 {$ L( R, \, D                        end;
                else
3 G. g+ Q& z; i                        if j=i then
2 D" m9 X: H/ E4 y* f! _                                D_From_To_Chart[j,i]:=0;
# B3 l+ u& N- h+ ]1 [                        else
% P# b( a7 X2 z1 ^' Z% M                                if D_From_To_Chart[j,i]<=0 then
+ w# w9 }7 d+ L& X, L8 U; p# j                                        messageBox("distence<=0...,",50,13);
3 R% W* z+ v9 N: n4 W                                        EventController.stop;
6 Q- A* d1 z% L. P" k$ M5 E% \                                end;
! w4 M: f, M9 ?3 E/ g                        end;
- x1 ?, u* A3 \% Z2 o* M                end;
        next;
next;

6 G: {* _& i8 }. \* P% n( Z2 S0 z2 wend;

& t0 Q+ ~' c0 z8 W  J' ^- h    Lines :=0;
1 L9 \; w5 c* Q& n/ k6 I( v        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
( F: L5 t* S2 G& C                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
/ Z2 f6 w* z! G' P; o2 {                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) D3 W4 D0 y' O# }6 t; Q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
1 v* D1 |* b% Q: j                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
" l4 L( F" t9 |) \) `3 d        next;
& x8 }; k+ l9 v( O; D, U        MachineName :=sprint("M",Rows);
        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]);
        Machine.Name :=MachineName;
( d: v5 g  j) y: p  `        Machine.ProcTime :=5;
7 i. s3 Q2 F5 A7 [        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
. Q* V4 h0 ^$ p! n/ {( }       
6 i4 N" W. W! e6 Q( a        BufName :=sprint("BF",Rows);
        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
6 z" F; V; v: D+ N& u2 O        .MaterialFlow.Connector.connect(Buf,Machine);
next;
' ]1 S4 M8 B; b' W( uend;
' l* p2 R3 d/ L% r$ V6 T7 ?3 \

五五

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

wudi

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