程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# }$ P1 `; a( c$ z; `- }! B2 }is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
+ J" O; P2 `: @8 L  p        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
+ m+ J$ c% g0 c3 U                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
2 W9 L+ G4 y* F  Q8 [. j                        print "Yes";
                when 32 then
! d& W0 c& i/ p1 U* G& p                        print "No";
" D* {# Z1 @8 a! X) w4 c                else
                        print "Cancel";
                end;
        EventController.stop;
end;
* O6 J+ h! o# w: l' IPartsTable.delete;
. Q) a9 D7 P5 N7 u: Sfor i:=1 to Number_Of_Machine loop
2 q: Q$ m5 b8 v, [, n        for j:=1 to Number_Of_Machine loop
: w8 {; b& ]7 X* v! k) ]3 o                if j<i then
0 M3 N1 q# D: C- @0 K0 s. I' j                        if D_From_To_Chart[j,i]<=0 then
! Z" K. \7 G/ V8 r* k/ d+ z* w                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
; v9 m! ?/ A( ~7 T; U                        if j=i then
$ |3 _7 \$ q0 }' e, H  c4 |                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
# t4 W" ]; b) x# n5 m- r                                        messageBox("distence<=0...,",50,13);
+ E. W7 M: M4 A) W; ~                                        EventController.stop;
2 a4 S- Q  k, H$ @) ?1 s) k5 A                                end;
  R$ {8 j: t- T+ t                        end;
1 @1 B" U: Y0 H: \4 H1 p                end;
& t: R$ \2 v. f. S3 @+ L        next;
- n5 |. M9 O$ A& L0 w9 Enext;

1 z$ u6 Y& }! I0 M2 `end;
4 B4 |, W' l2 H8 i
    Lines :=0;
, e5 k# x, s' a+ t* B# U        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
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
+ o# V) k. a! g                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
/ k4 z* g: w- q8 h                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
, X6 m! a" o' P* x$ f) O5 T- q  g' `- G                        PartsTable[3,Lines]:=sprint("Parts");
9 h: t- f9 x4 m3 y: D                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
/ }  s$ m( Z0 [$ ]0 R                end;
2 R0 g" L4 b' A; ?2 W1 g3 q7 I        next;
( _, ?3 Q5 `* T; ]        MachineName :=sprint("M",Rows);
- u) K" X$ c3 Y# Z, t/ q) E        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;
) X; G5 I: X4 q: Y% i! }6 p; L: }" U        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
$ U. ^  V% R/ J0 a: [  H+ X) ~        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;
6 q: {& T: `, p! a, F1 f' K8 H; ^        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
4 p& W- ?; i6 [3 p        .MaterialFlow.Connector.connect(Buf,Machine);
next;
7 p! x# b3 ~. D- ?end;
' P8 u2 G& U: K% c( Q1 ^

五五

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

wudi

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