程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, U9 g. [9 o& k! x. G0 ~is
        i,j,Rows,Lines:integer;
5 N" X; ~9 y& T4 k        MachineName,BufName:string;
  d6 R3 O6 \+ ~* }7 h        Machine,Buf:object;
0 ]( S/ g' ~$ x2 z0 hdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
$ |7 ?. J2 K3 X* W8 l                when 16 then
                        print "Yes";
. t! l: u( t4 h; B& t) i                when 32 then
- Q# k( ?( ~- p4 n1 g& W3 m                        print "No";
                else
                        print "Cancel";
                end;
$ V# }# G9 v' k+ `3 d        EventController.stop;
end;
5 m7 |9 `1 [+ L8 L2 SPartsTable.delete;
  ^  h6 i# _# `! m+ _: G! r/ _for 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
% o* h$ v; [/ d- E                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
" X+ [3 o1 I# ]( l% d                        end;
5 b& Z* a6 e# q                else
                        if j=i then
% W* t  a' z; c7 @/ M# u7 n' t                                D_From_To_Chart[j,i]:=0;
                        else
; [0 O3 ^2 e! @6 G) n: R( u4 a                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
* f; T! f1 X: K                                        EventController.stop;
                                end;
                        end;
% I, q5 ^, ]2 c: e                end;
        next;
6 g: F6 T% a3 r* Pnext;
6 F; O4 g4 R8 `" E1 a1 D9 }) [
end;

    Lines :=0;
4 }' [$ e) W) ~. [        for i:1 to Number_Of_Machine loop
8 k8 A( U# D7 ~: `3 ^        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 @* x  p- L4 ~        MachineSequence[2,i]:=Rows;
0 |7 f8 L- T$ p7 v  N( b% v: c            for j:1 to Number_Of_Machine loop
) d5 V0 N1 H: a4 o$ A                    if W_From_To_Chart[j,Rows]>0 then
4 C( h- e- B6 i! \7 |* I4 s: u                            Lines :=Lines+1;
. q/ d) Z- v: f6 Y  _                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) p5 i% ?& [3 k                        PartsTable[3,Lines]:=sprint("Parts");
. P6 ]9 u. b" j  g# M/ R                        PartsTable[5,Lines]:=Rows;
% O3 d) y, `$ V% [# D" g" {7 ~( F                        PartsTable[6,Lines]:=j;
, P$ Z* P) Q* \, x0 y- Y9 B                end;
        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
; L3 Z, r' c% }- s7 ?' C% V# G9 q4 V        Machine.ExitCtrl :=ref(Leave);
+ v% a: k7 i9 ~6 d2 x       
+ D: s* {& g% M% w$ U& ?" x4 f! 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
1 |6 H- S; O, {        .MaterialFlow.Connector.connect(Buf,Machine);
next;
, V6 J4 g  {$ V. h" \, s& @end;
3 ~! P/ v/ m+ A( |$ i

五五

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

wudi

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