程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
9 e- V$ `6 _! g3 Z2 T$ E5 E' n( I        i,j,Rows,Lines:integer;
* q, I. p/ ^- j$ V6 w        MachineName,BufName:string;
" X) J3 J. \+ ~3 L6 r; U        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
: S+ y! C3 O, f1 A0 t. W                when 32 then
) M# d4 l3 J6 `7 h$ w  ~, Y                        print "No";
, a0 o; l! R& b" W                else
. {4 ?. R+ R, e5 {1 m                        print "Cancel";
' r, v3 H& C# H; ]+ n. j                end;
8 C3 [$ h1 g6 q) E1 U        EventController.stop;
! ]' G6 ~: C. l1 Q* T3 T; z$ vend;
' G, L/ r9 d2 x8 ]" QPartsTable.delete;
( i0 r2 }! z  C$ Xfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
- h3 M$ p) X7 U, }) U! g                if j<i then
- L* a2 d2 F% H, T( K9 p                        if D_From_To_Chart[j,i]<=0 then
; W5 c! E1 s& }: a; c                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
+ R* Q& o  ]4 Z% c$ b0 o% F) z                else
3 X% E7 B1 S; D, T                        if j=i then
                                D_From_To_Chart[j,i]:=0;
; d/ t% }2 w. O1 A  z2 S4 Z0 z                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
+ X' w7 p# \! W' p+ _1 U        next;
1 @2 Z8 X; v1 o. j' xnext;
3 Z8 q' s# R  e- H* w* z
end;
  O! ?8 _  `0 V8 L  ]
/ b: n% A0 d) {8 ]* n9 q1 U    Lines :=0;
        for i:1 to Number_Of_Machine loop
1 Z- y% v9 D$ x" y5 K- }) y        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) e5 p* z1 s; Q        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
# f, V, [- K$ {: ]+ R2 R* y                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ @$ C% n- p2 j3 J( T% N  L                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
( t; L5 ?7 _! `+ G* ]+ |                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
9 T. ?9 m/ A2 n, h( h                        PartsTable[6,Lines]:=j;
) p6 H% @) d" A! Y                end;
        next;
3 D' ?7 W% {6 J) w. c0 K        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]);
6 _6 E( |( P" Q: X& W& p        Machine.Name :=MachineName;
1 I. R7 c0 ?$ R' G3 p        Machine.ProcTime :=5;
1 t* n$ J" o& c        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
+ B% W* K" o/ C: F: g        BufName :=sprint("BF",Rows);
8 ]+ x  F  I" F. \: }, I        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;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
+ D  `+ J: s, G- [2 J3 v, x; K# Yend;
, u8 G/ s. J" Y) A3 ]" b  U

五五

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

wudi

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