程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
& m6 Y' `- s9 u% p        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
% i, q: S' Q* b: d; g                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
* m: @- i) o. G& b- B, w                        print "Yes";
& O" `) T' W' a& @9 F                when 32 then
+ K( H- T8 l" J) S                        print "No";
                else
; k3 v, ]/ ?* i                        print "Cancel";
                end;
        EventController.stop;
end;
8 `2 A5 n' n2 Q9 T9 |' X, QPartsTable.delete;
& M5 s* p! c2 G$ F9 Ifor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
' J2 U; l& `* h9 U5 w                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
3 f" r) I* k' J; {                        end;
+ x) @% L; @1 V$ \                else
( c) U1 v) ?5 _- N3 l, [0 T                        if j=i then
! N& B; D0 d* J5 V/ Z                                D_From_To_Chart[j,i]:=0;
' q) M4 k4 }% v0 Q: k; Y0 H* u                        else
; O$ G2 \) N. i  U; @                                if D_From_To_Chart[j,i]<=0 then
5 X, v+ S0 ~% Q/ Q9 w; x2 ~3 W1 w                                        messageBox("distence<=0...,",50,13);
( A! u4 i& Z- P9 A1 \. x% _* {                                        EventController.stop;
                                end;
( a) |- y' P+ L6 `                        end;
                end;
        next;
next;
6 N! {5 G; H& x  `6 _
  a( m8 |8 O$ S6 }# Qend;
* r* e8 T+ o' D( I; r0 ?
+ s2 q% r% B2 Y' \0 N    Lines :=0;
8 P3 G! x; ?2 W5 e' F% _. l8 v        for i:1 to Number_Of_Machine loop
' r1 }' R  G6 s6 p4 m        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, W) C8 j# F- q6 A; e        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
$ R2 l& N8 o, G) {& i                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
- D& }7 ?: g3 H8 N! _2 e3 ~& ~  t, {                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
* q4 j/ N1 f% B, N: h, \, H! o        MachineName :=sprint("M",Rows);
# U  T2 x6 y5 h9 T        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]);
# p2 n: _. ?, V  K) A        Machine.Name :=MachineName;
9 u2 H) |4 u$ V) N6 N1 g( ]* T        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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]);
1 L  W- u) I' y3 H" y                 Buf.Name :=BufName;
7 g; r3 ~2 X5 C        Buf.Capacity :=5000;
" F5 v- \5 D$ c% O. Y9 I- k2 D! `/ Z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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