程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
- T& {4 F3 [( t' R: F- ois
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
! a- W, {8 W2 r+ z0 x7 K/ ^        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
, R. ?6 u. u, y  [                when 16 then
                        print "Yes";
* Z. L2 B" `# j* ~5 B/ H                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
* z* w8 x) s9 Q+ \        EventController.stop;
end;
PartsTable.delete;
2 ^$ |& \- H, e% e3 J! k- [6 `for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
  w* R) j3 R7 n5 f                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
) b& y( Z! k8 A/ g; I( \                                if D_From_To_Chart[j,i]<=0 then
$ C1 P) K( h" q: G* Y6 U* L" y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
# t: r! I% L/ T                                end;
* e. |# Y9 v2 `1 `, F                        end;
                end;
        next;
next;

3 w' |  R7 ~! [5 a6 t3 z& Jend;

8 p% U1 e1 e& I  Z$ A7 S0 ?    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) Z( o" F! t$ t        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
5 N  G3 L7 T* J( B& d. ~3 ^: A                            Lines :=Lines+1;
& W/ T8 a, [$ c. |5 v8 p                        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;
                        PartsTable[6,Lines]:=j;
                end;
+ X  r* p/ E: m        next;
        MachineName :=sprint("M",Rows);
) m7 X$ c8 O2 P& ^        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;
9 D5 K( v1 ]1 E5 v. y        Machine.ProcTime :=5;
6 V6 E% S/ j% A" d9 n' C( A        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
4 a9 R, g8 Y1 z/ h( p! \        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]);
5 |7 U2 B3 F$ C' K) y4 A: H                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
7 V  `( X/ ]) c, R        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
- b5 }/ w+ b; B7 n8 X6 e; tend;
4 u: v7 |7 @& t* [

五五

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

wudi

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