程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 C$ U0 n9 \7 _8 E4 i- His
2 H  t6 M1 K- P; _" O. t        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
  [5 l1 A, }* Y" Y! W        Machine,Buf:object;
do
1 O3 J2 u2 }, W/ B" t+ ?: }% O2 x8 y        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
+ o7 @- w- X, W                when 16 then
6 l' X2 f6 Z2 Q+ n                        print "Yes";
; G0 H3 N, r; ]' y                when 32 then
! S5 t  N$ V3 I0 {9 X+ Q                        print "No";
0 Y5 N  ~. \9 j$ {  `, B* e                else
                        print "Cancel";
                end;
( {) R! P- _8 O4 {+ H* E        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
" ], K: i- g$ D- k" o; o                if j<i then
3 s2 m, b$ M6 U& p- g! w1 Q2 d6 ^                        if D_From_To_Chart[j,i]<=0 then
! ]- x4 X' K9 U- \) r                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
( B2 z; F+ K* S4 }" w                        end;
7 w/ ^7 O2 b6 x; P0 o                else
                        if j=i then
! v1 |1 A9 G( _& \4 g6 k9 G                                D_From_To_Chart[j,i]:=0;
* C7 V5 c- z: q7 w* x! l                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
0 V5 n0 A/ S# L                                        EventController.stop;
, S2 _4 \* i; n9 R                                end;
                        end;
                end;
        next;
+ C8 P8 K) I0 q3 I6 x! ?. knext;
" `0 ~: M) N% @: U5 g) ~: h1 }# v
$ T% D) l) H' S; w: Z- Zend;

3 @: @4 u% e+ T( q  U8 h# b    Lines :=0;
        for i:1 to Number_Of_Machine loop
- r% _7 u& a6 u. S        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
8 n  ~4 c6 u- N% b$ E        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
; B  |# j4 J) j% E. \) }' m8 ^                    if W_From_To_Chart[j,Rows]>0 then
5 J: |/ }8 u/ w5 Y8 I1 ^                            Lines :=Lines+1;
0 a/ K. W/ U+ @. P& y                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% F- a: J# R- m: k" J                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
; X/ r6 Y$ @7 s0 i( H( V% f# A                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
2 D! a' Z) _" E. i! X                        PartsTable[6,Lines]:=j;
8 V# u6 z  X) @                end;
+ }; G, E+ r/ x) h8 |        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;
        Machine.ProcTime :=5;
) b% W8 ~6 `. N( H) U, v! i        Machine.label :=sprint("machine_",Rows);
4 F, P8 l( n: F& u: |+ i2 Z4 J        Machine.ExitCtrl :=ref(Leave);
; j* b3 n4 [$ h9 n       
        BufName :=sprint("BF",Rows);
9 y7 A( H9 h8 C0 v. J. R6 {        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;
5 @1 j% q) }  i  y, o% d  E  F0 \% X% m        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
; |# Y' |4 @* q1 n! D9 Xnext;
end;
6 |! G0 S* v& u

五五

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

wudi

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