程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
( h: |* T+ I/ C  c7 q4 Y* K( E        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
4 V  V, R: n6 m        if Number_Of_Machine/=D_From_To_Chart.YDim then
8 x# E) u9 a4 D/ A                inspect messageBox("Number Wrong...,",50,13)
$ W; J7 U. }/ Z& ?0 }' c) i                when 16 then
                        print "Yes";
                when 32 then
. h1 E2 q. \" g, ?% _# j6 G* X                        print "No";
                else
                        print "Cancel";
                end;
, k& |# e/ ~9 e. c5 V# y        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
" }. m6 n: M2 A& P        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
) g$ C( W! o- {, \/ P4 D3 @                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
/ t5 H& S+ i* A8 V$ H4 r                        else
+ s, Q- v2 \$ ?# i8 ]- P  a! z# R                                if D_From_To_Chart[j,i]<=0 then
2 v  U1 \! V1 M6 x' A: r                                        messageBox("distence<=0...,",50,13);
: T# f! O: `: \6 t) H& B# f$ V                                        EventController.stop;
                                end;
                        end;
& k' y1 n) u: n                end;
        next;
) R" z' V' q( a, A& Onext;

end;
1 O% |. _  e! p
  ?; W/ }9 L/ M* i7 n" z+ |    Lines :=0;
        for i:1 to Number_Of_Machine loop
; C2 l/ x  [2 Z0 A0 Z$ X        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ ]# F% v6 W, `: B        MachineSequence[2,i]:=Rows;
9 y& o: R  M4 ]! y3 K            for j:1 to Number_Of_Machine loop
1 G* b9 Y+ x* ?                    if W_From_To_Chart[j,Rows]>0 then
- R) l' X; g* y7 r9 v  E                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  Q6 Q! W6 m5 c/ {4 i8 d1 w' q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& I# l3 B: {5 i1 T' A                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
3 U7 E* k- R; R5 f" H                end;
+ K' T. q. K0 l( ^5 s' }: t1 W        next;
) E+ w7 q- i6 T8 o2 {* M- i1 M, }        MachineName :=sprint("M",Rows);
/ C" ?; L9 p) A/ `        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;
0 T2 j2 g# S# x        Machine.label :=sprint("machine_",Rows);
# Y1 c( @5 }3 V7 y        Machine.ExitCtrl :=ref(Leave);
       
, G4 q# x3 [% {        BufName :=sprint("BF",Rows);
( v* Y, [$ l) y        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]);
9 M0 y/ ^  v+ D( u1 Q" ~                 Buf.Name :=BufName;
* F  V8 C, {4 \8 r, U9 `+ y6 O- s        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  W8 U' g' u, f0 M' i        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
  \4 j! ~( ?6 X4 S

五五

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

wudi

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