程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ M* `' A2 v6 K$ g& }! c2 e/ ~is
( i% a, D' Q+ G: A9 i        i,j,Rows,Lines:integer;
6 I$ P! ?6 r- x- y% N! e/ v" l        MachineName,BufName:string;
        Machine,Buf:object;
0 ?1 Z3 ]  K/ t. J8 G& E+ Vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 ]: x, n- M$ W0 l1 L                inspect messageBox("Number Wrong...,",50,13)
$ S# ^; ]0 a! d; S                when 16 then
0 D) ~: y( E$ x; g                        print "Yes";
- N3 ^+ t6 }3 ?: l6 S                when 32 then
5 f; J, v  K  r5 n8 p! [                        print "No";
                else
                        print "Cancel";
& [3 x( [5 n& W) S1 X( M                end;
        EventController.stop;
end;
PartsTable.delete;
' u. V, X+ |6 I/ `3 k7 B) b) {$ Hfor i:=1 to Number_Of_Machine loop
- R2 Z8 A; ?2 A; ]2 g        for j:=1 to Number_Of_Machine loop
$ v; A4 Y3 ~/ P$ P) L/ o                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];
. h* r+ U! T8 \) W! ~, V                        end;
                else
/ C7 w, f3 n2 G- @4 i                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
5 e8 r6 v! M* A, I                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
7 b* ]" h9 Y" m: V* U                                end;
  U. ?; K/ v" H* g                        end;
                end;
        next;
next;
- Y& R% s* a( f
6 n) |. n8 [3 S8 Dend;
' Y8 \0 p+ z$ |2 }5 V/ J/ u
  g9 S' |! K2 @6 v" j7 Q( v/ E- t    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. @* p8 n- j1 R5 ^8 y  S        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
) `1 z' S- O9 K. j4 `5 s                    if W_From_To_Chart[j,Rows]>0 then
6 B* {, G6 Z; j# h                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
7 D8 {5 b( k# n7 J% T# z8 V                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
7 q) c$ Z0 K- Q6 K5 h  W                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
3 t* m  N0 s2 l+ Y5 Y1 u/ j  d                end;
        next;
. E. w0 q4 r  [, M2 W0 T; `7 d/ 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]);
        Machine.Name :=MachineName;
9 n* T& ~. }' f# C4 N$ e        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
8 p2 ]5 |' ]) M9 a/ l+ O+ D        Machine.ExitCtrl :=ref(Leave);
* U1 \, y& ]$ |# I" s       
        BufName :=sprint("BF",Rows);
# |+ c5 Z. I' a: D6 c& w* q        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]);
3 n1 B8 M0 J8 y. n- P                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
0 t- Q2 g( Z# q5 R6 d        Buf.ProcTime :=0;
6 K8 I' z" o+ T! m$ F& }: J        .MaterialFlow.Connector.connect(Buf,Machine);
next;
" Z8 ?: Q4 F, L8 \0 E. Jend;
3 |* H1 j% E& }+ V! r) w$ U

五五

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

wudi

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