程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 n& r+ }8 b. ^* }) jis
        i,j,Rows,Lines:integer;
5 B; a5 \* v1 G% L0 ~. w' p        MachineName,BufName:string;
        Machine,Buf:object;
do
8 x# F' L0 l% ^" E1 j        if Number_Of_Machine/=D_From_To_Chart.YDim then
9 ~, Y$ g4 F  ?8 L6 ^                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
0 [0 v3 [. l. ~9 j7 r                        print "No";
! y& S0 g3 t: G6 J8 K                else
                        print "Cancel";
                end;
) u8 a6 ?8 Q* B: P" `2 f, L        EventController.stop;
end;
" n! w$ V4 P- c8 \0 v0 M) pPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
. p3 b+ R6 y  R0 S4 {( @# r                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
. R& u( l4 ~  D% K1 i' E                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
6 ~2 ]  j* F$ ]8 \( z7 o/ ?5 K                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
% t# \# t% J: C* O; H, L. i8 L                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
' }# Y- l7 b$ [  @) B4 h                                end;
                        end;
                end;
        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
4 ]7 n- k  O  z; l        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
1 u6 Y4 b; D, x- q/ |$ ~        MachineSequence[2,i]:=Rows;
- X, b7 k. r% ]4 g            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
3 g+ s5 o* n; p. {* N  g  }9 u; a, Q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
" y; Q( r! [2 B$ p1 B! W! B3 v                        PartsTable[5,Lines]:=Rows;
; H" @, R% q! b' F2 o$ |                        PartsTable[6,Lines]:=j;
                end;
. t9 K% X2 }: u4 V" K        next;
        MachineName :=sprint("M",Rows);
. _# z3 b) o7 x! I' k! ^! b2 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]);
: V, s+ Z/ E/ s, _. w3 R        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
' ~. q$ u$ X7 G" I1 B$ x2 `        Machine.ExitCtrl :=ref(Leave);
       
: D+ S# z- s! D. Y& @( ?! k6 V$ L        BufName :=sprint("BF",Rows);
" V# U' z4 W. D: u& F5 G1 U3 B        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]);
; s( {; L" f* T+ z                 Buf.Name :=BufName;
4 p9 Y7 R9 Y  N5 w  S! l: M, E/ p        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
; t$ b$ h. ^: Q& N        .MaterialFlow.Connector.connect(Buf,Machine);
/ n4 c1 @, f( J5 n/ l- M# ?9 Unext;
5 o% c- u9 J1 D! e- Send;

五五

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

wudi

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