程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
4 z* _: x& m6 r$ F! L* N5 g+ K, R1 `is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 s# R) u9 j$ {        Machine,Buf:object;
( M% _. R$ C" bdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
7 `' U1 g' B2 t4 i5 D1 K* N7 o9 G) a                when 16 then
4 p! i- a' g' l7 a. t                        print "Yes";
2 I) s% Q1 L7 a0 Q8 r# U4 I                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
# w4 h- s% G- M8 t        EventController.stop;
! ~  V* d' {- ~9 Z; s5 x8 ~end;
PartsTable.delete;
+ A. [* n8 @0 x% J5 B* M2 hfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
1 Z% f4 O% M9 S2 q                        if D_From_To_Chart[j,i]<=0 then
; W8 M# I2 W' Z                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
6 M0 p4 L, ?2 M' V# c$ H                        if j=i then
2 l( ]5 a% o% d! p9 L7 q0 _. W                                D_From_To_Chart[j,i]:=0;
5 }5 h6 v% y, c6 ~" |* U6 l                        else
                                if D_From_To_Chart[j,i]<=0 then
: w' s1 P" q( C+ m4 M) Z                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
' J& o: t; t) N: S' O                        end;
9 n# A/ `9 T) J' F; @                end;
1 A$ o# h+ I1 A7 ?        next;
3 X$ V. o3 M: M3 ?4 H8 M1 Knext;
4 \+ b: t4 r2 Q  [! k5 T" D9 Y
* K! B6 `% P( L) t3 Wend;

/ g4 Y/ {3 b% d9 [    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
6 m. F2 s/ s4 d5 I) `5 w+ p            for j:1 to Number_Of_Machine loop
% K5 x. R7 r4 b/ [% u                    if W_From_To_Chart[j,Rows]>0 then
$ E5 H* D+ G; Y. u# h                            Lines :=Lines+1;
  L# f$ V) r( j3 X$ I2 m                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; L. G" ^: D2 D1 X+ g/ B                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: A7 R/ ^- _' g( s                        PartsTable[3,Lines]:=sprint("Parts");
4 P' I: N( n  w- U& K( M2 \                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
7 Z+ x; E) q$ g1 D7 r  g/ U- N        next;
! U- z9 S/ i( n4 v. Q. x& j( F( I        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
6 @* {, O2 h5 c7 x9 f2 Q        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
4 s3 ]7 q% x# F- k0 H        BufName :=sprint("BF",Rows);
, i/ T7 q5 U1 |9 L) H  ?8 x        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]);
% G; C; Y, q+ ]: r- N) ^                 Buf.Name :=BufName;
+ P. C& x* W  D' k; L        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
: J; u. I; q% ^/ T, c) a, Z# Vnext;
end;
) I8 d9 b- N; Y9 H  S

五五

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

wudi

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