程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  _  r' c# A( [4 O5 \/ f) W0 yis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
: P) c! A' R3 s5 W3 B        Machine,Buf:object;
( {! x7 T4 D8 l; \do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
' \+ B* U- Q) N                        print "Yes";
                when 32 then
+ G0 P* ^) i, _$ f/ K                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
& h1 U6 h; n3 M2 T. p4 `PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
5 S+ _" N. u! V2 a8 O7 m. i                if j<i then
" _6 _3 V/ i- M+ N$ Z$ w7 S                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
. R8 {: F* f% x- v, Y* i                else
- F6 I, o1 H* Z# b  F! z+ ^% i                        if j=i then
5 G5 m, y/ T* |$ x4 Z                                D_From_To_Chart[j,i]:=0;
3 b; w  K" h" n- F% \0 H- X* y' e                        else
$ D2 G, X4 J% o& T. ]$ f) o                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
" G$ _$ ^4 C1 {* H% X$ `5 M3 S                                        EventController.stop;
' r; {1 y6 a4 @: u6 S( e                                end;
2 b: z5 k" b8 q                        end;
! u5 y0 q  a2 ~+ o/ |3 U                end;
        next;
1 P: }3 X% y) j' f* {next;
; V+ L' ?, `+ Z( ~; p' z6 j
end;

    Lines :=0;
# r/ L, N3 Z0 N        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 p) O( x0 d, O/ d  s6 G        MachineSequence[2,i]:=Rows;
- W+ U$ f8 c( p            for j:1 to Number_Of_Machine loop
' c1 }- I9 z  [# c, J5 W                    if W_From_To_Chart[j,Rows]>0 then
& ?" v- D% r# F2 C8 }                            Lines :=Lines+1;
* e# G7 J/ m# h& `2 D                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
* f. O2 A" }/ N! @                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
; }9 f- \- j! B                        PartsTable[6,Lines]:=j;
                end;
$ B4 L  E2 h8 z0 r4 f2 z        next;
        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;
        Machine.ProcTime :=5;
! e+ K4 e/ n: o: [3 V        Machine.label :=sprint("machine_",Rows);
7 L' G  u0 M! X        Machine.ExitCtrl :=ref(Leave);
       
3 J$ b5 C& l: c, z' J5 y$ F. A        BufName :=sprint("BF",Rows);
9 u" i5 x) i$ ~" }+ K  n9 n7 V8 W        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;
6 v' Y; l8 n. S        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
7 N( G1 ^" a9 k0 xnext;
end;

五五

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

wudi

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