程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) Z  x$ \$ i9 m: U0 x8 @  a9 _is
% ], a: c- P+ l        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
8 C# p; P6 A6 g4 y        Machine,Buf:object;
) N, K: }* \% ~do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 b! q3 R: |& n                inspect messageBox("Number Wrong...,",50,13)
  D" L3 G: R( r) m7 r$ e4 b" e. V                when 16 then
                        print "Yes";
& R! n. b: J4 I1 F! J. f; D                when 32 then
6 [8 Z  p5 ^- u! \: j, M6 @, B( X% w5 D                        print "No";
6 \/ j' D; q! i/ K( L3 _5 T                else
                        print "Cancel";
, s' @- S  x; N) [                end;
# o  d+ t5 t; b  b! T: C: `. H' ~2 H        EventController.stop;
& L5 w+ L/ S0 cend;
/ N& E* u7 ?( X0 k- dPartsTable.delete;
; Y3 l. {9 p9 p% _. ?. ?for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
$ h- T3 [- X$ Y! ]9 p                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];
+ y# @& H% R6 Y9 J# |# y                        end;
; ?. |3 X8 K7 Y$ b                else
                        if j=i then
1 U- j2 x# v! E( c9 j- a8 _' N                                D_From_To_Chart[j,i]:=0;
( J+ T3 r+ u4 @' P( ]7 o0 \9 Y. n) l                        else
                                if D_From_To_Chart[j,i]<=0 then
8 v# C+ m$ W& M2 {                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
7 r9 P8 m& F( V( h" }* J6 z, y                end;
        next;
8 F# R) t$ h& o3 s+ O2 L. P$ Enext;
( ~, {3 \7 e: j: [
end;
; C+ c# @  @; C) m/ L2 Z5 i
    Lines :=0;
2 A2 ~% e# n) b9 S+ i        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
9 O2 j" U# f; W6 k* T* Y                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
" G5 `+ e8 K. g% a  z$ U! u                        PartsTable[5,Lines]:=Rows;
' p# E1 c* p4 t+ [6 M$ }                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
* o2 j  Y, k, o3 ?& `- Q9 M. s        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]);
% j, j, W& j+ P+ _: @        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
7 c& y8 `1 h. D- r; `- `        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ L, P* t- F* \' p! F4 A' p: h9 Y       
; w' v% x% Y4 d, r, s. b" D9 x; c+ }        BufName :=sprint("BF",Rows);
1 ?3 ?* V0 t, m" V+ U( u        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]);
/ t; I" q3 l( ]/ W) \! j5 [                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
# D2 K# y- _6 i/ e; O( ]( j        Buf.ProcTime :=0;
/ Z9 W9 g0 F4 s) L( q& p% |  ~        .MaterialFlow.Connector.connect(Buf,Machine);
next;
' s, J# I, Y  q4 fend;

五五

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

wudi

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