程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# _- I. P7 H/ V+ y" Gis
6 g3 O1 o9 ]. b! ]' `        i,j,Rows,Lines:integer;
3 }; m2 ~! x- L; Q* Q/ g        MachineName,BufName:string;
/ K7 h% K1 |1 s; n7 o        Machine,Buf:object;
2 R! ^0 \+ d. j" l+ L9 u  X1 Ydo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 |1 v+ `& ^% t7 _$ o, B                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
3 l7 k! K6 s  N+ X  P+ U% F" `7 P. G                        print "No";
6 L$ T: [, y" K; u) ~' c                else
+ j# o. l' }1 m: U                        print "Cancel";
                end;
        EventController.stop;
end;
$ W: |+ `7 I2 G' l4 g& t3 gPartsTable.delete;
( c) j; s* A3 i0 \1 ]for i:=1 to Number_Of_Machine loop
6 e7 @5 _: L  ^( c& @: q9 D        for j:=1 to Number_Of_Machine loop
                if j<i then
' C) A: ?3 q3 v0 l  V& ^                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
0 P; r& n, M, I; s' y2 |' q: u- X; @                else
9 g3 v: D; V4 [! H                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
& r! o0 X( _9 \2 Y4 P  |  o                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;
' o: F; w' s1 t+ y
end;
+ P3 z" M( {6 Q5 \1 r; _
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
! k- D: ?$ X* s" `                    if W_From_To_Chart[j,Rows]>0 then
5 G- Y% k  ]3 @  b5 I                            Lines :=Lines+1;
) Y# f: Q8 }, Q( Z7 S$ W7 K                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
* j+ _$ e2 e: o( e8 `+ @1 ]/ S% Q                        PartsTable[5,Lines]:=Rows;
( F) |; z+ V1 F. E1 v. Z, Z. c+ X) Q5 q                        PartsTable[6,Lines]:=j;
                end;
  \# K6 b- H/ t: R  I: X$ f        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]);
- l" Q0 u+ J0 Q, i7 p4 |        Machine.Name :=MachineName;
' l% }) \! N6 q9 \; H; P        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
, V5 B/ Z# O1 U        Machine.ExitCtrl :=ref(Leave);
7 Y. @& D% y- F       
. b! R8 b) y% P' g5 ]( y1 _        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]);
+ P! L2 w* p9 g+ l4 v: {% z! ?                 Buf.Name :=BufName;
$ ]6 v' z% F* d6 o7 f& C/ X        Buf.Capacity :=5000;
+ q4 s: Q$ M8 }' M5 ^/ l+ Y( o        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
0 ]" H! d7 Z9 _. G! w% Xnext;
  \8 T2 K/ e7 ^* ^+ Z, z1 b- ^/ _3 i& Oend;

五五

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

wudi

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