程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 `: |0 V+ N6 p" [" O% yis
6 T: W. O2 g3 `* G. {8 n        i,j,Rows,Lines:integer;
" m; l5 r1 o7 i; A, u        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 ?0 s7 g9 l9 L2 D! L% i' v                inspect messageBox("Number Wrong...,",50,13)
% C. q8 p$ N, D% V+ J" i                when 16 then
                        print "Yes";
7 K6 E" K  O! S6 j% H. o; c; `                when 32 then
) ?* V7 s; Y; {2 k) y, X                        print "No";
2 O5 u, F/ k% }7 W6 B( w1 u' ~                else
0 t# O- |2 Y6 |6 {3 Q0 ^                        print "Cancel";
                end;
        EventController.stop;
end;
7 b/ J) l. E7 r7 l5 LPartsTable.delete;
for i:=1 to Number_Of_Machine loop
6 A9 Q4 ^$ H3 c) h$ @3 H# N: @        for j:=1 to Number_Of_Machine loop
                if j<i then
; X: e3 ?6 l$ ^0 i: M2 @                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 v1 g4 A# ]$ w1 i* z- R                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
" H" }& a! E3 c                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
: Q/ X# S& I9 f  U0 k                                end;
- A/ Z% f. K9 g, d, V( k! E0 ^. u, f                        end;
8 ?: N& J& T4 d2 _3 I2 I2 p9 Y                end;
# w( g) R; F8 _# g        next;
6 L- e7 y6 x7 Q. {0 E- pnext;
% X; n0 e) m7 L  K. }4 F
3 j1 H; f; M- S! z6 l0 w  @end;

3 `3 E& x# P5 w    Lines :=0;
( \9 Q5 _2 m  M% x1 A: V" t        for i:1 to Number_Of_Machine loop
+ {7 Z4 h! X; R' Q8 _; L  x        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: s% K  I4 L; ?        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
; |& b2 O5 A% y% h                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
7 W) O/ [9 m  ^8 Z                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: W6 S( R8 A% H                        PartsTable[3,Lines]:=sprint("Parts");
4 X* J. S3 p1 K0 L. X+ ^* Z                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        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]);
        Machine.Name :=MachineName;
' w; m; e3 N0 Y. X& o+ E% w6 e        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
  {; L2 }7 |+ b! j# f9 k, g        Machine.ExitCtrl :=ref(Leave);
       
# z. I' _6 t& V$ k% p5 }% T2 v: m        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
3 A3 [, H7 ?0 v& O9 j        Buf.ProcTime :=0;
# A! F4 D$ w) \. E3 H        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
2 K; O3 |* A" j  |  F+ u

五五

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

wudi

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