程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 n; B- a8 p/ S2 {; Q6 S" e) dis
' [7 R/ _' A0 X8 l( m8 G        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
+ V/ J# M! p5 s; g1 ]                when 16 then
                        print "Yes";
: \! E( I$ j  R                when 32 then
                        print "No";
                else
7 w" J+ F* t" w6 W+ L6 G- b                        print "Cancel";
. |4 h! n: S; s: @9 u3 e                end;
        EventController.stop;
end;
PartsTable.delete;
5 a# H% F+ e- h) I: L$ Lfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
- \5 Q# Y* ?" ?6 R: ~                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
: L1 P- i6 g( X$ P) W% w7 `                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
# {2 a, J, E, Z& G- r                else
: W8 q3 `  s: O3 c) i8 L                        if j=i then
, k- h' y- T: F! o" L7 B! d                                D_From_To_Chart[j,i]:=0;
- K7 r9 f! ^" s7 r& ]  U) X# C                        else
, F7 b; J8 H3 `                                if D_From_To_Chart[j,i]<=0 then
6 P) N! ]7 w6 Q7 j" }) d                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
9 n$ G3 r& N- ^6 b3 e                end;
; Y, M  a. _& j) O1 Q) w) r8 |        next;
next;
' I$ v# A/ J+ h7 D1 X' B, X
% r7 m% B$ }& a$ i! m  `end;
& f- D/ Y7 ~) }! y1 g- b8 U
. Y% p. [6 u1 S8 O1 t+ r    Lines :=0;
6 n" f+ y, X; u7 y        for i:1 to Number_Of_Machine loop
2 f+ ^# r! I2 N6 f3 ?$ B5 ^- E6 H        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ _5 A# v% o$ K        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# L1 h' n1 F) |                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: V* x( B+ t. T5 C                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
" }0 W) X* o, o! x1 m# B                        PartsTable[6,Lines]:=j;
' X. C, Q  w$ z, B- K) U                end;
. y# }* O+ x" X' ~/ w, h        next;
( ]8 T) P* {2 S) b0 s3 W* q        MachineName :=sprint("M",Rows);
( y' J1 S  k4 z; v        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;
9 \3 @6 a, M3 V+ V        Machine.label :=sprint("machine_",Rows);
8 B7 K9 V) f2 D& B% D0 V        Machine.ExitCtrl :=ref(Leave);
       
, V1 X, u! E: r4 p* ]        BufName :=sprint("BF",Rows);
# A0 l3 c* e2 q9 M- C! F        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
) w8 r8 P" T7 ^/ C# d( o        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
  n3 d& {( F; c' I7 O' I9 ^next;
& M0 x1 _' Q8 A, |- V5 Jend;

五五

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

wudi

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