程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
9 z$ F; o* Z9 |0 F        i,j,Rows,Lines:integer;
4 ?1 `2 H1 L5 z$ {1 N' f        MachineName,BufName:string;
( R6 Y4 i2 H+ g. X9 i& [& I1 E- T4 S        Machine,Buf:object;
* c" C* l  B) E+ {+ Qdo
; g: N" Y' z5 E) j* J( k        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! z( ^1 m/ b/ b% J2 l: a: ~- X3 G                when 16 then
$ ^" @9 t; S( Y) t7 d/ J                        print "Yes";
                when 32 then
& U3 a! C0 V- H( Q  M9 D$ j/ l3 i. K                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
  w, v+ D5 p- q! z) zPartsTable.delete;
  R3 i  t  B& Vfor i:=1 to Number_Of_Machine loop
( ^1 S! A1 d: f; d        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
  A! l6 i% Q- R                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* [, S  @, d4 B) d; j% m* i                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
2 K2 k+ n. z: [0 L* g) G. f% l6 {                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
* ^6 X" ]- u# ?5 T+ ~        next;
/ A. s3 X- ~, w) U' l9 h4 Qnext;
( j! S8 j8 J" S- J0 L/ `
! u/ q; C6 j% _end;
& |$ o3 d; y# @
: ?) L: q9 @/ [* P7 b6 G- F. t    Lines :=0;
- w: @: Y! v: j$ U' Z        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
& n6 h  P2 U! x9 a* j0 m9 Z' R$ s" Z        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
' ]& ~2 j1 {+ P* l, p! I                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ m: R1 M/ d; z1 L# W/ i' E                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
: O' O: y+ G- n, a* Y7 u                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
: G0 r! T( n% r                end;
        next;
# [" e1 k, j4 y        MachineName :=sprint("M",Rows);
9 b1 K2 u% W( ?, }) `6 `        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]);
* l' _% C' k) ]8 J; ^        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
2 t% b. v9 M/ J- i        Machine.label :=sprint("machine_",Rows);
+ |  g& `8 C2 @5 k7 c$ N* l. g; k        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 m$ G9 @+ I3 h                 Buf.Name :=BufName;
& M+ O0 m) _+ z1 `! j1 b) q; Q        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
% P! _  I/ }! R1 q0 [% N- B' L! f

五五

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

wudi

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