程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; B2 F% g0 m7 _0 g2 M+ ?is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
2 J; @/ D, R$ s+ H. f% O, ~+ K        if Number_Of_Machine/=D_From_To_Chart.YDim then
- R, r  q/ m2 M. _. l                inspect messageBox("Number Wrong...,",50,13)
* [* R, K+ b5 s' g8 t  z+ a0 e4 G4 m                when 16 then
                        print "Yes";
  X9 x# }  t+ T3 {+ i, J0 r+ O                when 32 then
                        print "No";
                else
                        print "Cancel";
4 _: N7 y- U' h: G                end;
3 G, @* r4 c$ }% T7 J; X        EventController.stop;
end;
PartsTable.delete;
5 @  u! M9 B& N  X5 k7 u" B3 Dfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
2 m9 n0 |* ^( }5 ?0 p/ J                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
* {/ p. W8 ^/ T, f, D" b8 M                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
% o0 \/ I; [* y) O: I                        end;
& |' p$ Y8 I5 e0 e$ C& |, D                else
/ Z" g3 B  A' Q2 _, e- U                        if j=i then
7 z5 ]3 `2 t% N' v; N8 e8 D                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
1 g, [) e4 s9 j( y, t1 |                                        messageBox("distence<=0...,",50,13);
  Z$ a4 ^/ ?) e3 h& T+ W                                        EventController.stop;
                                end;
                        end;
                end;
        next;
& X( ~) h/ M4 ]; ^. m# jnext;

+ e& D* x: H, [2 N4 k8 @end;
) Q% g3 k: U* n/ O
& N! M! X: W+ ?! `& {    Lines :=0;
        for i:1 to Number_Of_Machine loop
3 \* M+ R: }# n& p* U        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
  O) d" s. @0 W" C$ [" o- G9 ]' O        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
! m2 b9 N2 x# J# i2 F                        PartsTable[6,Lines]:=j;
                end;
9 t+ |( e: D& o% `) ?        next;
' v4 w8 B& T3 C0 J        MachineName :=sprint("M",Rows);
+ A4 K2 _  L% S5 c4 C( V        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
, \9 w/ \1 J8 J# }) k  @0 T& S        Machine.ExitCtrl :=ref(Leave);
& z+ X/ y& g3 E: X" R' F6 u/ ]       
' H1 t& Q) D, B8 X  m8 f" l+ C        BufName :=sprint("BF",Rows);
$ ^+ U5 g1 \6 \        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;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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