程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
/ y! \% a0 T  a, `, I5 {! U0 @2 P- F. \        i,j,Rows,Lines:integer;
! y, i, q  l* v' w) G' ^        MachineName,BufName:string;
" x- ~8 X$ G* X2 m        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 \+ s8 t# Y9 o) r6 ~2 }$ y                inspect messageBox("Number Wrong...,",50,13)
$ w- S* z, g; G                when 16 then
                        print "Yes";
                when 32 then
' `1 q; k+ V) n  E7 x7 G                        print "No";
# f  t9 h" u2 M' A, ~! Q$ W                else
$ p  o5 m9 h+ F* U                        print "Cancel";
                end;
# A' ]# G0 y/ x. ?1 o1 |        EventController.stop;
+ T$ w" g7 o' B( ^$ G' R' bend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
  e7 P. h+ C" q$ t) p        for j:=1 to Number_Of_Machine loop
& o  N  a+ W3 q2 S9 a, l/ q                if j<i then
) Q+ C7 c2 j' a& R1 z& E) A; W                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
' h3 C( A, S1 l' Z. J) b+ o, ]  u                        end;
                else
" s$ J# K5 M7 t# O, z                        if j=i then
: C$ K7 i/ l5 Y' _/ k5 i                                D_From_To_Chart[j,i]:=0;
* T6 o+ J! p% [8 D# \. O# e                        else
) ^: J. J6 ~; c4 C                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
( N+ q% B; c# T$ Z6 Q/ }$ @        next;
next;

3 G+ w) O! v" A* @end;

    Lines :=0;
4 u% i/ x9 ^0 d        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
2 N9 ^2 P5 K* r. K3 S+ Z                    if W_From_To_Chart[j,Rows]>0 then
0 K) D# T# C; S! J2 Z% g                            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# A- W1 r% P) p                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
/ X3 M4 ]5 F* n        next;
5 {  q- u1 j1 G4 I9 N+ v        MachineName :=sprint("M",Rows);
; o) Z& z: ^8 ~4 M% B        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]);
; [* ^& a9 E" u6 `+ t9 G        Machine.Name :=MachineName;
0 A+ m  O7 f  I3 l5 X& B' j$ }        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
0 T# }% g, l& Y' Z% ^       
+ ^, Y4 X8 y6 B2 H1 X        BufName :=sprint("BF",Rows);
  T. A( P" n7 p        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]);
  J% {$ |9 Q/ ?: @" \/ s) h                 Buf.Name :=BufName;
3 t& p- I& O% ~1 B; [        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
$ w/ {; r/ x/ s( M! U' i2 \: N! Enext;
2 \/ U4 t2 P/ N+ a+ ]/ Zend;
# n3 ~  O) I2 Z  p; `% H* P

五五

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

wudi

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