程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ w' X1 M& [. |2 lis
+ p- g8 h9 X& q3 s        i,j,Rows,Lines:integer;
" F9 E* @: N: K5 n; R: G/ d        MachineName,BufName:string;
        Machine,Buf:object;
2 ~" @* L( ?3 `. Tdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
( k* S. \2 B4 e+ E" |( I                inspect messageBox("Number Wrong...,",50,13)
. {0 C" A( t" P' O; T7 n                when 16 then
) ~  S' e( a, T7 o" P                        print "Yes";
                when 32 then
                        print "No";
3 r5 e3 J( y7 O0 j9 j1 K% i4 Z5 y" a                else
                        print "Cancel";
9 q) w  ?9 b5 S! {) q$ D& v1 e* S                end;
5 W+ J8 `# h0 o        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
+ L1 }# I) z: a  @% U                if j<i then
. U' a& I8 V& x, J8 N0 b# _                        if D_From_To_Chart[j,i]<=0 then
5 G" u- ?5 S- |: m( w$ D                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
9 v% K) N3 m. [                        end;
                else
                        if j=i then
( V& n% d/ @* c# N% d                                D_From_To_Chart[j,i]:=0;
                        else
' ]+ }4 n3 L0 e                                if D_From_To_Chart[j,i]<=0 then
; \  I6 X3 H* E4 y3 i, g                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
3 Z& {/ @3 y- D: C8 X# N; g$ X; x' j                        end;
: m' R2 s2 n2 ]# V6 b2 c0 w                end;
        next;
next;
/ H0 N5 z0 S  ]
end;

# t2 L/ v+ Q$ l" h4 w+ z$ n, y3 O    Lines :=0;
: o; b& w- z0 p1 _9 a3 U! i        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 c# P9 L! k1 p' u' G1 o3 j        MachineSequence[2,i]:=Rows;
* W$ V0 }2 G4 H; m# [            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
+ A0 ^! s0 ~; m' t7 H% v$ C                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  {& W7 l0 Y9 [' v$ K6 b2 t3 ^1 L                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
4 a+ C: j1 y4 _+ Q, ~                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
" r- r7 H9 B3 ]* v0 D% e                end;
* E/ M' L/ A8 |" N- A6 L        next;
' ~& G) r3 w8 {9 e# {        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]);
4 q7 c2 c) i2 O" J        Machine.Name :=MachineName;
& Q1 Y( l( D. b/ S4 }        Machine.ProcTime :=5;
$ T7 L2 I8 L8 z! R6 l        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
% Z' W$ E, @) l* P        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;
" k9 R# u  P/ f  y( C3 m$ O        Buf.Capacity :=5000;
/ A9 X7 z8 H/ \9 t+ p        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
+ c0 Z1 Z4 H6 E; z  p6 f' Knext;
end;

五五

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

wudi

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