程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        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)
! E0 C  |. x5 m0 u                when 16 then
                        print "Yes";
5 d# `$ V3 g1 g                when 32 then
                        print "No";
- \' J+ C( g5 Q3 d8 K+ z! `                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
4 V+ c9 d2 n5 w7 I6 ?& Efor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
+ M8 \- @8 T* h6 ~. M- H" m- [$ b( ~                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
( X5 D- T5 m5 W* ?" W% r                        end;
                else
+ V2 p9 Q0 S4 Z% Y2 x: U/ Q                        if j=i then
                                D_From_To_Chart[j,i]:=0;
; X( K" _! }! n9 k                        else
* ~& b9 _2 [: a7 u' p                                if D_From_To_Chart[j,i]<=0 then
% b" x1 m% D  t: L                                        messageBox("distence<=0...,",50,13);
$ N# y- C- A5 }# d( W  e                                        EventController.stop;
                                end;
0 o! d7 e7 G- l5 V9 S" @' Y* U                        end;
                end;
: R2 T; g: A4 h        next;
next;

end;

    Lines :=0;
1 b, S/ J  }' S/ j        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ A: `, ?- d/ W) t5 b2 @4 s. J" K( f        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
' q# j% Y6 ~- |+ Y3 j                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 w7 f; @) a5 w                        PartsTable[3,Lines]:=sprint("Parts");
3 Z: n/ C( S+ Y" [- t                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
5 p6 K' B3 W( n2 m" s                end;
9 w6 t; a" @# U' _+ ]: C% t        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;
2 B: w6 G* V. }) V8 Y3 R" T        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
1 w* d* f! s; S9 j1 E/ H9 |; ^       
4 i" p# C7 Y% x: n$ p+ z# X, r        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]);
6 ~& ?& Q" P# U* J+ D                 Buf.Name :=BufName;
; v4 G- ]" A* }) c8 o6 g        Buf.Capacity :=5000;
7 d( {" ?( k) G6 Z        Buf.ProcTime :=0;
1 u$ f1 _( ~6 l        .MaterialFlow.Connector.connect(Buf,Machine);
# K4 F; [3 D, @, V" {& Snext;
+ g% E5 Y6 N2 I3 h$ z2 B" {end;
2 v' ]$ [% J+ R7 P0 H, k! Y- b

五五

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

wudi

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