程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
6 ~: X( f$ ^  o0 r        i,j,Rows,Lines:integer;
0 |: i$ N: L3 M* |. _) \# J        MachineName,BufName:string;
        Machine,Buf:object;
do
2 R5 Z: ?0 [  }- [# J( s        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
0 T+ v8 Y! c, }: N                when 16 then
: ~$ P& l5 S8 o8 D1 L% _                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
5 K0 W/ ^9 e+ ^+ Q  j        EventController.stop;
end;
* N7 G5 e0 G, Q& ZPartsTable.delete;
) B' ~! Y' u6 u0 }for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
) `. R( x& q. n3 d                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
% d3 y1 |4 A5 ]. P5 q5 f' E                                D_From_To_Chart[j,i]:=0;
                        else
) n: T  ^8 L- r                                if D_From_To_Chart[j,i]<=0 then
! S# O; ^# S" [* s* \8 `- @                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
3 l0 N/ y  r1 P* H                                end;
- [5 Q1 {% l7 ?( m                        end;
$ X9 W: _) l+ [/ B, J3 x                end;
        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
; w$ b! k1 N* m        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 u- W; x8 L* g1 @        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
5 q) F# ?9 @% P6 e& a                    if W_From_To_Chart[j,Rows]>0 then
! `. F$ ]; e" _9 c! ^                            Lines :=Lines+1;
4 o* x. ~( z& U1 u* {* z                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. w2 P7 p0 ^+ C0 H6 d                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
2 W2 e4 G/ {3 `2 h* o6 \& E        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]);
1 [+ d% y* R6 |        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
        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;
9 o- ^& m+ I2 p: E  l. c. B- G        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
+ ~/ `4 F% H# r7 h5 H8 k0 k  g) ?next;
  g3 [8 t% ^% Z" wend;

五五

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

wudi

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