程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 z1 G! p2 B; o5 X7 @is
        i,j,Rows,Lines:integer;
) T" x: G) }9 M' B- C        MachineName,BufName:string;
        Machine,Buf:object;
do
- v( y, K& P) D) y- y/ m3 ^        if Number_Of_Machine/=D_From_To_Chart.YDim then
# |7 s) m* c6 G# j2 o                inspect messageBox("Number Wrong...,",50,13)
, N3 U( R3 z& l6 o) z                when 16 then
0 J, W5 i% D+ V4 k4 z, h! O5 Z                        print "Yes";
                when 32 then
' J. p) s" F7 C$ J                        print "No";
                else
                        print "Cancel";
                end;
/ |) i) \/ Q( X" r5 Z1 F        EventController.stop;
end;
+ C- ]5 s% V, k4 UPartsTable.delete;
* P6 l+ m5 `2 }/ E. Rfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
- v2 t! h, y: s& m! w$ Q- X                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* a! ?9 _. R" H0 E! Q' N% F                        end;
                else
                        if j=i then
9 K5 ~7 C) J4 q/ c$ W1 J! b                                D_From_To_Chart[j,i]:=0;
6 m8 O7 p7 x4 u! f; T$ m' L' A                        else
                                if D_From_To_Chart[j,i]<=0 then
' {7 x9 F; Q: {7 q                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
3 Y$ d, k# H6 |) q' G; b, A& T7 m                                end;
) D0 N' ~) h. g* j' @                        end;
                end;
, a& K0 p) u+ A. B. y        next;
next;
: ~  L. y6 L) `: X( p' ?1 o$ M- K
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 x+ W# F% w6 b: l& r1 s        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
8 o2 N4 ^# }! k1 v( }7 N                    if W_From_To_Chart[j,Rows]>0 then
) b# l9 i: f! w4 c4 I6 y                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  R8 v# c6 V% h) }1 n/ G                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
% O# J9 X$ h" y' E                end;
        next;
+ P  e2 M+ O1 J! m        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]);
0 {! p; ^3 I5 F        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
; A  K/ A% U+ _, R; D. g6 J1 W        BufName :=sprint("BF",Rows);
" [5 r, u( N, D. D+ I  D3 u' [" }        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;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
0 ?) `( ^2 l: s* X: i, }. f

五五

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

wudi

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