程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
, V# M/ z+ s. Q7 J* w8 |5 X' U        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
" W9 V, {3 j: c& N; X% D$ \  {do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# ?& B. K5 t( ?, N                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
. y- |7 y* ~6 z" O                when 32 then
/ e9 I+ U; O& H, S. Z: F7 @                        print "No";
                else
% \# i* v9 }; ]( \" y                        print "Cancel";
                end;
: _: \! H& Z0 k7 D/ y& `+ A        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
; I; a) V) ^$ |& U        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
  Z, o; m: d& B' _8 e                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ G6 `$ L8 O4 U- r                        end;
5 O4 p) m) ^4 e6 u                else
                        if j=i then
6 i: _" u6 l0 F5 s/ ^                                D_From_To_Chart[j,i]:=0;
                        else
7 D; \* v, b9 @. X                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
6 y5 [" H7 I6 Q                                        EventController.stop;
3 e! a$ A, |  \  I9 N$ d' b                                end;
                        end;
                end;
; o7 N' ?0 o5 H) e        next;
next;

end;
) ?8 p( ]3 u1 w# @( p+ J- N) Z
    Lines :=0;
  Q7 A8 H2 S' A2 R+ k2 s3 e        for i:1 to Number_Of_Machine loop
8 @  c% Z+ |4 y  E9 W: J. {        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
0 W7 M* a; g* s" l# |3 F' }7 V                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
! }3 O6 w& ~0 f* T' Z$ c- }                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
. L$ {! ?& P5 p9 w: F0 Q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
6 b* d" e& ^9 G) D$ D4 I9 B+ D8 t! W                end;
        next;
8 z$ {7 j/ ]; S; [4 \; V        MachineName :=sprint("M",Rows);
) z! z1 h1 J  E% J' C        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;
        Machine.ProcTime :=5;
6 _4 v( G, a9 v2 c; |  W        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
" J7 i& R  K. g5 K) B, N4 b2 e       
4 A6 R: R; r6 G        BufName :=sprint("BF",Rows);
; ~/ K  |1 V$ a# U# c        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]);
" S0 \/ D: Z3 i. `+ o                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
8 j% H9 g: [# Y7 ^# d        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
7 u- ?0 E+ h1 R% O6 L( i: K1 Bnext;
end;
3 `) e& y0 A9 `0 @3 f! U- n

五五

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

wudi

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