程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
- N+ C$ \  y! Zis
        i,j,Rows,Lines:integer;
' `% Y5 D  ]* z! [3 s2 L        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
) `* e: Z/ @% D  T: G& j- {                when 16 then
                        print "Yes";
5 R  X% U  x3 K8 ?" r                when 32 then
                        print "No";
                else
                        print "Cancel";
3 w& Q) i  R6 ]  A/ u: _$ u                end;
        EventController.stop;
end;
0 G" j2 E+ G. C3 u: e( A* l$ s  ]PartsTable.delete;
  }4 B! g: V$ ^" ifor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
, B, G* g3 T# _5 O- h                        if D_From_To_Chart[j,i]<=0 then
3 M' U0 v2 m8 i+ p                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
) U  O0 U& I- |                        end;
                else
                        if j=i then
1 G8 Y+ {, o& v9 j                                D_From_To_Chart[j,i]:=0;
% N  r9 Q; l, r7 m5 E                        else
9 h. [  E9 b5 z- d, R' T, K& W! o                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
! _; f  b/ ?  ]9 j5 C0 C" L) \                                        EventController.stop;
) k$ }7 V+ _/ E, B* r                                end;
& E8 M3 k: w+ g0 ^/ q+ m' @                        end;
                end;
2 _% R5 _* o( D6 w) A: b3 r8 Z        next;
next;

end;
9 I7 \9 N, X: |5 b* d
    Lines :=0;
) U. p: H( p$ S8 {        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
/ ?) `+ F8 G/ T" B0 |' y            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
( s& J' w$ f' B                        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% d, _6 C: ?5 L* w- p& o% ^                        PartsTable[5,Lines]:=Rows;
% S5 V8 d/ L4 I3 T4 @( `% J                        PartsTable[6,Lines]:=j;
) e* E0 f9 j, H! @                end;
" ~% K1 @! L1 T" z% Y        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;
2 Y+ Z: `6 d( d' V        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
5 b' W0 [9 f9 P/ D        Machine.ExitCtrl :=ref(Leave);
       
5 g9 {/ w6 ^$ d* q+ D        BufName :=sprint("BF",Rows);
        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]);
' k3 w2 X& s  r9 f                 Buf.Name :=BufName;
5 [- \, R2 |# I# u        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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