程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  [6 G  W6 Z) S% `( ?+ vis
        i,j,Rows,Lines:integer;
7 a8 L" h# z' ^& x4 \6 @" |7 Z        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
) S. _5 w* }9 @, p  K9 A# u' s2 G                        print "No";
1 T- l) D5 r) M' F2 ]6 H' c$ l                else
                        print "Cancel";
' H  H! e1 k( ^4 T0 F: p8 Y                end;
) N# A( T" C* N7 V- U& ^' R) d        EventController.stop;
: h5 ~$ [. v1 L3 _/ x+ f" j: Nend;
2 U3 ?- l, \* w2 uPartsTable.delete;
for i:=1 to Number_Of_Machine loop
/ ^, c( v' |5 @! z5 b8 o  f; ?/ V        for j:=1 to Number_Of_Machine loop
                if j<i then
: k/ D) r5 b7 ~9 ?! J- H                        if D_From_To_Chart[j,i]<=0 then
7 M( j9 j% Z9 R9 N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
. j% X& \' _, A# u3 i8 G5 c1 j                else
                        if j=i then
* Z% ^3 |- o1 ~  y4 P2 c                                D_From_To_Chart[j,i]:=0;
                        else
6 h1 B& Q: U6 b! g  K# Z( [: \                                if D_From_To_Chart[j,i]<=0 then
# j& u( T9 ?0 F9 m% D0 }. M                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
% o' v  h* z% f                                end;
9 |1 J& i' C# _+ y7 t                        end;
                end;
        next;
, u3 c+ O6 J: enext;
0 E+ [' K, ~2 v: ~. i' ^
end;

6 H/ N8 M- z) U9 `" [  ?    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
& Z8 H8 d* r& b( r            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  N- R, T9 B9 R) Q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
. p8 Y7 h" _, O0 a. j) ?4 e+ M                        PartsTable[5,Lines]:=Rows;
+ A9 Z) W: E& s4 e& q9 B8 p$ r                        PartsTable[6,Lines]:=j;
                end;
$ E' X# A& W9 x# O        next;
8 G; o. D; Y9 ~, l$ o        MachineName :=sprint("M",Rows);
  G! j4 U( ?/ a# m! v        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) H/ E& T: j2 w  z8 W        Machine.Name :=MachineName;
- b5 N( P: a, ]/ l+ ]" g        Machine.ProcTime :=5;
% d1 o, o; m  X2 f        Machine.label :=sprint("machine_",Rows);
& G( a% X, l' W% a        Machine.ExitCtrl :=ref(Leave);
0 |! I' `- D1 k: H# C* F, l       
        BufName :=sprint("BF",Rows);
  g7 k* h" z/ }/ g0 l; Q/ C8 i0 N; ^0 J        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;
" E4 a& t$ N/ g' r3 X6 m# A# P        .MaterialFlow.Connector.connect(Buf,Machine);
. }" D8 M% t6 M7 j- Hnext;
end;

五五

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

wudi

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