程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
: R' R/ d7 M8 S3 ^7 x: Kis
- w8 p, c# I5 K        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 |0 r2 a* b) _% Y        Machine,Buf:object;
do
" |* y8 S! |$ m2 M4 Y        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
% `- t1 K+ H, y' b" k) Z" M. a                        print "Yes";
                when 32 then
! J- a; v( S0 S2 [3 K) S& R# V                        print "No";
( B$ M: F  f5 k  P0 Z: i                else
                        print "Cancel";
                end;
        EventController.stop;
# t# M, U) c/ M" X0 A8 a$ W  _end;
) p; Y3 |  ]' M1 X+ @PartsTable.delete;
/ W0 h0 w+ x7 L* Z; T; ]' Nfor i:=1 to Number_Of_Machine loop
        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];
8 a' S7 {8 {5 L; z( y1 k. v                        end;
                else
                        if j=i then
! C) {2 y7 c3 k! D                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
9 }, e+ A9 z: A& X                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
& L9 A0 Y9 Z' h( J1 j- d6 d                end;
        next;
) l9 T) `9 e9 s3 cnext;
8 s! U! `% i: [# K, e5 _
" V4 Y) H5 I; y3 K5 V; @end;
9 [2 `. x" c* }) F# s- x" N" A
    Lines :=0;
        for i:1 to Number_Of_Machine loop
7 l! K0 `$ T& X; c) ~) R' @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
' X0 L; ^4 r) s2 C, U                    if W_From_To_Chart[j,Rows]>0 then
6 E8 n7 [2 f0 B/ _/ j                            Lines :=Lines+1;
3 Q; h; r& D% D( O5 p( k1 H+ _                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
' D3 H# g7 Y! e4 ?2 M; s                        PartsTable[3,Lines]:=sprint("Parts");
% T4 Z, a; ]5 m0 P$ H9 c1 @, O1 m                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
" N/ n; p2 ^: @2 n7 K  u! g                end;
        next;
* ]% o9 z# }" c! h/ v/ V, \# I# ]5 e        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]);
& u, m7 }1 Z* I4 u# Y7 a        Machine.Name :=MachineName;
- n" P) G/ o5 [8 P. R3 m        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
1 Z3 f: p9 z/ t3 S        Machine.ExitCtrl :=ref(Leave);
       
8 `8 F9 o1 r7 l% O& Z9 M9 Z) w        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]);
/ G2 H6 ~* {0 q$ G                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
3 ~( w( X( g; d# J8 Q* h7 W! F        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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