程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ j0 F2 ~+ R: w" A3 qis
        i,j,Rows,Lines:integer;
: Q$ ]5 W- @) V( }        MachineName,BufName:string;
2 a, p) }" g% ~0 o        Machine,Buf:object;
: D0 B& A: J  `5 P7 o9 |' @do
' t9 ^' G0 W% R5 [" p+ \: r* V: e        if Number_Of_Machine/=D_From_To_Chart.YDim then
+ F, n7 c) B8 D* F  S                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
& n  ?* H' P1 X: R+ r                        print "Cancel";
                end;
        EventController.stop;
8 O! j+ n8 C4 }% wend;
1 m5 [+ Z0 S+ u5 EPartsTable.delete;
% M" y5 p  o. g9 f- Q# S5 x1 l* X9 Ifor i:=1 to Number_Of_Machine loop
9 B9 N, W* B) X2 G2 i7 G5 D" A- t        for j:=1 to Number_Of_Machine loop
4 F9 |1 j, w+ g& W% y9 W6 E                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
& D0 ^: g, i9 @- M4 l                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
1 j2 R0 g7 U* f6 \                else
' ~* U; v5 o" n7 j9 R# @; S, C$ O                        if j=i then
                                D_From_To_Chart[j,i]:=0;
/ _6 @8 d6 g9 a                        else
$ Q. G: Z- r$ M0 c: K) V                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
' v" Q5 h0 y+ V6 z" v1 B8 A! M                                        EventController.stop;
                                end;
                        end;
- \2 d, H) S! Z8 u6 @                end;
        next;
/ }) `+ H4 [8 s) H- A) Y, z" h( S) Snext;

8 v7 T* ]& M; y) [3 Y( k( xend;

; j5 q( [% I' O    Lines :=0;
- \* E8 N# c  M! u0 Q, n& x$ y: s        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ H3 R/ V4 q0 t6 X9 p        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
$ O& |- f0 @/ X7 O                    if W_From_To_Chart[j,Rows]>0 then
) C- D& D/ Y9 |5 a                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
( o, V$ l2 L) N) L! A                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
" _. q) L$ j7 Q$ `8 ?* z" u        next;
; H% X% ]  o: y        MachineName :=sprint("M",Rows);
6 M6 n# }$ N' |3 A5 @+ @! V        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;
! Z4 T! [4 d  Y1 }* i9 _        Machine.ProcTime :=5;
0 s" e0 M9 _1 F- W        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
; a& S( W+ m2 [! a5 g       
        BufName :=sprint("BF",Rows);
; S: A) a8 ~- G/ ]* X9 j! _        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;
: L* W; G2 ?- `) {% \* p( ]        Buf.ProcTime :=0;
0 W5 J/ x: o! J% f& J* m6 t        .MaterialFlow.Connector.connect(Buf,Machine);
4 j4 Z  D. C! b/ G  M& `next;
+ A5 L; i$ Z% D8 U8 |end;
7 Q. K& x' L7 n; v0 x: U1 F

五五

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

wudi

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