程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
3 e5 {1 j" `$ \, J+ Q' A% d        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
5 K+ c0 l, J3 l, z4 L  h! {. E        Machine,Buf:object;
% `) X& [) f8 w9 Z: @1 _do
: M- {) [* G# T  D% A        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
! M/ e- D6 z9 a, i& I0 @) \. g$ v3 M                        print "Yes";
' `6 E% l8 ?% ~5 q5 P" R4 |                when 32 then
                        print "No";
                else
" c# U0 ?$ Q, e2 z! ~* `+ o                        print "Cancel";
                end;
        EventController.stop;
end;
& n5 D# A, a- w7 c4 m# oPartsTable.delete;
# n/ l; E+ e, L) J5 a& pfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
- K8 c  ?0 l" O( |3 y                if j<i then
. n3 e2 t& C2 A' U! v, D                        if D_From_To_Chart[j,i]<=0 then
( N- v/ D& H2 {' e) E! o+ q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
% h! D; F7 s. [9 W0 g! R1 t: L                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
$ ~" l3 P) e  J) E9 M3 K                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
  G; |' T9 }1 G, u- h                        end;
$ s5 b  W2 o& f8 W/ V7 r' M! [+ ~' B                end;
) A) P7 P9 y2 H& @' ]# w        next;
3 b5 Z8 k& I# }% snext;

end;

    Lines :=0;
. ^2 t1 W% S% C* K2 n        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
4 }0 a$ _+ S" O& W4 s- u# K- G            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
4 f! A( u5 x3 r# E0 s                            Lines :=Lines+1;
7 m" Y8 @# F  {9 a; M7 u4 U) E                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; Y+ V' y! K* x                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
" \" \+ a8 e& C/ a                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
' m0 u* {* F# }  s                end;
: |& p# s" L/ Z" Z6 n3 V        next;
0 U: g8 j9 C0 @3 E4 s: ^7 b+ h        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]);
        Machine.Name :=MachineName;
; b+ ~/ W2 j  H9 h; T        Machine.ProcTime :=5;
6 G6 r! j! L/ \+ T% z' a        Machine.label :=sprint("machine_",Rows);
1 Z' W* z+ [4 ?1 ?% O        Machine.ExitCtrl :=ref(Leave);
# E$ s# N/ h: P: u       
        BufName :=sprint("BF",Rows);
2 u3 R5 T' f/ `8 S' `- P6 B8 V        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]);
' t3 Z. j6 g5 u6 B( f                 Buf.Name :=BufName;
+ f, m1 `/ O7 @        Buf.Capacity :=5000;
- @( T+ w8 t9 q8 `- S# b        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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