程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
/ T& {4 o9 U; t        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
/ j: J' @- `0 c! @                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
) I6 H0 k3 G- _( @/ h) C# C1 L                end;
' n5 |# p' l: L# n; o2 r; h& H        EventController.stop;
end;
PartsTable.delete;
( n, R, r7 `# N8 \) |2 {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];
" C1 X4 ]% ~9 ~. b* Y6 R                        end;
                else
) }; R6 U3 i+ R  s, U. D6 r3 T                        if j=i then
+ p& M& V8 ?3 d                                D_From_To_Chart[j,i]:=0;
                        else
; e/ F9 O5 s. D( d4 `                                if D_From_To_Chart[j,i]<=0 then
/ H2 t6 E6 V% h5 F- H                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
; ~) X! g8 [% U7 N8 Z, L9 ?                                end;
; K1 e2 ]' ]: D% Y' P5 s                        end;
                end;
        next;
: R; @! s4 Y% D2 Qnext;
4 B, W+ y- v3 c2 S
end;
) O- E4 }. s4 \7 u8 Z
/ {. D& X$ Q1 b: _  y$ x" ?, L    Lines :=0;
        for i:1 to Number_Of_Machine loop
8 H! p7 b4 T+ R  V        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
: [+ ]% F( D' }; G4 V                    if W_From_To_Chart[j,Rows]>0 then
0 k3 x- {+ t% t. N' z7 A                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
3 u* H: ~9 Q4 Z6 ?2 c- g# e                        PartsTable[3,Lines]:=sprint("Parts");
9 N: P! s6 o' m1 {" s7 J3 C  a  ~                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
# H; q, I! H( v* p/ u0 K- W/ G                end;
$ ]2 f3 x- t& X% R3 l9 f        next;
8 O* C4 F* s2 Z( f: d9 A. r5 Z* }        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]);
" J8 X# ]9 u" D/ b- l# y        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
8 c. _6 J/ Z& d0 H        Machine.label :=sprint("machine_",Rows);
9 @& j& H, B1 m4 j        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;
' L' E: E0 W5 P2 N0 ^' I        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
8 W0 ^% a2 c5 W  ^+ R        .MaterialFlow.Connector.connect(Buf,Machine);
next;
- `' c; D+ f; g* uend;
2 B6 M7 ?) |- o& J% A

五五

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

wudi

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