程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ `: j9 h! t* _$ p4 I7 {is
; L( Y# ^4 l/ z/ t' E        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
1 @- m! l0 o, y6 j2 B" d6 n        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
7 K! G. d9 q) h' s                end;
% Z; E  X1 m0 k& g: S& i  }! }        EventController.stop;
end;
" ~8 ]. f  \; c; ~9 X: i8 pPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
& T4 Q0 N. p& E- u( Z) Q                if j<i then
2 X' k# H; H' [                        if D_From_To_Chart[j,i]<=0 then
2 g. Q+ D" T$ ]+ w* L  Z                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
5 D$ Y- T1 A* R" U- ^                        else
; B0 j3 P9 `+ r0 [                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
+ K1 K( ~: W2 A5 K" r+ @                                        EventController.stop;
* l1 i. U$ q  |0 S: n1 }4 X! m                                end;
% q0 j  P+ ~* A" A2 m/ r                        end;
                end;
        next;
next;
& s& @8 H$ A; D7 ~) f3 B( O
end;

9 D( Z0 l! y$ a: s- m* P; a    Lines :=0;
5 t+ n3 {( |# s9 k% ~+ C' ?        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 w, J+ `, U. g        MachineSequence[2,i]:=Rows;
$ d4 U$ c" q& Q. b" P            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
% Y! V. s) K; h) U1 q6 W                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
8 e& c9 g8 i2 a* {& d) e. j                end;
! W5 u) ~$ o9 _- |3 L" f        next;
4 _7 k' x! T# P% Z8 b- A% G        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]);
) j3 G6 Z3 _! V4 D" Q        Machine.Name :=MachineName;
, H6 T. q( Z' b! Z, F        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
$ j# B6 e1 [, T5 r9 q. ?        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
7 U7 s* n7 ^4 Y) J' H2 o* D        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]);
" B+ T* I: ?. ~* x# P( {                 Buf.Name :=BufName;
2 A4 }5 a* Q- R3 [1 ?        Buf.Capacity :=5000;
5 e" N0 h1 b/ b* D        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
0 X3 |0 T4 z; ~+ e) hnext;
end;
0 o% e' F4 P' g/ h- o, l- H8 B

五五

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

wudi

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