程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
" t  [- G9 O1 x1 `- Y% }) f                inspect messageBox("Number Wrong...,",50,13)
9 ?1 i$ ]: H# y/ q, t8 ~                when 16 then
                        print "Yes";
' _- b9 A* Z' R3 k                when 32 then
6 X2 _; O$ W- W' q                        print "No";
) W5 `) a0 Z1 z. A                else
. ?4 Z$ }, d7 j( z: m                        print "Cancel";
                end;
2 G! _0 G6 O* T6 v        EventController.stop;
# p/ ]& G. d. Y) W" i+ o: ?" Send;
% _% B& @  q. VPartsTable.delete;
for i:=1 to Number_Of_Machine loop
& X4 d0 ~& O# ?0 ?0 }- d: K        for j:=1 to Number_Of_Machine loop
' _4 G% N; J+ i3 F! X                if j<i then
; w/ u; S8 s* |: {, J                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
  @7 e2 W3 G: P4 P! D8 p) W                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
# n+ Z/ Q5 c7 ?+ j5 Z) i        next;
+ c) {% s; I( l2 @- a# znext;

  r7 v4 {2 g' p+ [end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( d9 @0 G. \# E        MachineSequence[2,i]:=Rows;
1 Q# I+ X/ Z- [5 w            for j:1 to Number_Of_Machine loop
! Z) w& \: M3 E$ A                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
/ m  m7 c# P* ]$ t4 x9 C                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ ~8 H# C9 K$ J9 q4 q  o. T                        PartsTable[3,Lines]:=sprint("Parts");
) ]7 x) n) d$ s$ Z/ y! i                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
: }9 g% v, t$ s1 D1 ]        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]);
0 @& G) e4 @6 E8 j  e. [3 w7 T        Machine.Name :=MachineName;
" w& ]; G( Q  Q0 V, C; e6 z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
, V7 s( O: ^* R5 n        Machine.ExitCtrl :=ref(Leave);
' m( h8 N4 _  i- g       
        BufName :=sprint("BF",Rows);
/ t2 U9 \* 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]);
1 ]8 d8 P# R/ F( c* J7 ~* W* l# f                 Buf.Name :=BufName;
) o) ^2 J( p6 j  m6 K8 w        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
) [) c9 B, x; E! S* n6 {6 [        .MaterialFlow.Connector.connect(Buf,Machine);
' v$ q, S5 H2 [( E) V; Y' Cnext;
end;

五五

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

wudi

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