程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 d# z4 _5 ~$ S# fis
8 Q8 W8 h2 k  v3 q/ s, W        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
) ^) e, Y1 z. ^1 e; \0 udo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# k5 Y4 w/ p8 v) _2 [0 @" z$ j9 m+ J                inspect messageBox("Number Wrong...,",50,13)
2 @3 c9 \* S; E3 T& _2 v$ y                when 16 then
- i& |/ z- _6 j, Z" U# W: i3 M                        print "Yes";
                when 32 then
; E0 i/ O) Q& K- k                        print "No";
                else
, S* i- u. e7 h# W                        print "Cancel";
, b% L+ W1 d7 L  p5 ^" T! t                end;
        EventController.stop;
end;
PartsTable.delete;
- q, w& b' X: A5 w5 H' m0 Xfor i:=1 to Number_Of_Machine loop
9 \8 x0 g9 s8 \$ s6 E        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
6 U: j9 j, F# E# @                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
, J8 A% ^7 h  P                        end;
/ n: ]* @5 A3 r5 ~, a                else
  K$ J/ w) S( M) L) a                        if j=i then
                                D_From_To_Chart[j,i]:=0;
) i3 m! e8 i% M8 f) r: |+ U                        else
) v% E$ d/ B7 s+ V" }" s7 U! p                                if D_From_To_Chart[j,i]<=0 then
  {, `) f& C6 r8 `# w8 T9 `                                        messageBox("distence<=0...,",50,13);
0 V: w- i- P# @6 y, N                                        EventController.stop;
* s5 `8 e) R8 `  G  _( P- P) a) z0 B                                end;
7 l, C% A9 c( M1 `. g                        end;
/ n) \" }1 q8 q: S                end;
        next;
next;
) e) j: V/ u1 s
  l) M% d& T/ _% k8 Nend;
8 N! @2 G; a4 l6 {" N/ J$ ~2 \
4 B" Y2 c, Q8 l" e8 T    Lines :=0;
        for i:1 to Number_Of_Machine loop
) u! P, m; Z9 _8 t/ J        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( |% Z% I& {# O. G. J+ V7 g        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
% N, f, O; u& i  G6 R1 M8 ]                            Lines :=Lines+1;
" ?5 D( D  E7 P. @; s0 Z2 Q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
; ^* G& G4 }% ~+ z                        PartsTable[5,Lines]:=Rows;
7 x) U5 x! e$ u7 s) J& S                        PartsTable[6,Lines]:=j;
                end;
        next;
# \3 b- f/ ]' c; l7 \' Z$ Y, W        MachineName :=sprint("M",Rows);
+ A# c- E" \9 e  L" @        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;
6 N3 P, b+ ?" h( p  {/ x1 N8 K        Machine.ProcTime :=5;
) ^' Y2 ~1 |' [2 ~# o' H9 ^        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
7 \) F0 b" l! o% a' |/ |) L) Y        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;
1 g+ P3 j$ a! f/ p7 T        Buf.ProcTime :=0;
2 B, \$ V' w% I9 ]$ ^! u/ |$ Z        .MaterialFlow.Connector.connect(Buf,Machine);
next;
( ]/ s6 U  `  }" w# T* hend;

五五

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

wudi

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