程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
& Y+ C, M& p) K* t        i,j,Rows,Lines:integer;
+ a$ J0 H7 Z: a. n( N        MachineName,BufName:string;
# E0 \1 V0 b, p4 \        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
3 E+ l% P- l% \4 p& g                        print "Yes";
3 Q. w9 O8 O0 v( D8 J& ]                when 32 then
                        print "No";
# c+ Y( j/ l$ E2 ^                else
4 e* M$ g/ Z1 K" s, `                        print "Cancel";
                end;
4 @, [/ Y* E* s! \        EventController.stop;
/ d# |0 A, m- q: L5 c6 ^5 t" G, Bend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                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];
                        end;
                else
$ J/ m: W# K0 q( n                        if j=i then
  ^  o( y) f6 b# i; v- X& {                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
3 m& d/ r5 r& u3 Q                                        messageBox("distence<=0...,",50,13);
! e  C' K0 S% \! |                                        EventController.stop;
  R; x6 s+ N  _+ U# b7 z                                end;
                        end;
                end;
, w0 L; f3 M& H& |  \% q( q5 p        next;
) T3 t% e8 a5 w# B* g  |next;
. n& o. k$ @" |4 M  F+ b
end;

9 i* Q5 p- @, t8 O( w! t, J  g    Lines :=0;
. x& [0 V) g! G; \/ D        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
# c* l* M6 J' ]$ g% f  F$ W            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
. F" O( K& s% L( Y8 x                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
0 L+ G% _9 w& I                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
' u  J0 J" W0 k9 T& m                        PartsTable[3,Lines]:=sprint("Parts");
3 F( L0 E2 K  P! V                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
' W8 i( p* I- R' g' S7 W- e5 M1 G                end;
7 P$ h- y. z1 A5 p; A& B  l        next;
        MachineName :=sprint("M",Rows);
) `9 \6 b' h0 G) l% M        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]);
, S% _  V1 N9 g        Machine.Name :=MachineName;
4 H% z, R' \7 Q+ l; B1 f        Machine.ProcTime :=5;
: N2 _% m9 u; v* v! M/ y        Machine.label :=sprint("machine_",Rows);
' d* \4 K0 o4 d3 a- p$ j        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
4 w. I" z+ g) }        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]);
0 q5 f4 H0 J0 `: `9 w; ?                 Buf.Name :=BufName;
: `" y# W+ k/ m& w, j! W+ W$ }  \        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
; |/ b/ _7 R/ H# y' _8 m& ]: G- `        .MaterialFlow.Connector.connect(Buf,Machine);
$ U" o3 V% w- Y- m( A6 Gnext;
end;

五五

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

wudi

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