程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ ^7 t8 w8 T- |) W1 lis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
! d: Q$ A. O5 }* {8 j# c! y$ @% m        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
* {: ^2 r5 \$ ~2 c! K                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
' B8 q8 _6 y/ a7 |. N2 s                when 32 then
. [9 Y9 @; f- Z                        print "No";
) V8 K+ F+ o: k/ s! Z' D                else
0 Y  v: Y- g; e8 V                        print "Cancel";
                end;
4 m  i5 I2 w5 d# I& Y# X$ p        EventController.stop;
" m3 F8 F1 ~+ Qend;
/ Z* d( A; m9 Q5 R1 [, v# VPartsTable.delete;
for i:=1 to Number_Of_Machine loop
+ j. A7 o/ h; C        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
/ b4 M3 o8 P- }  }                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; h, k# h: I' X( C                        end;
3 f+ \$ h: @( H6 B5 v* R                else
# H; E- B+ b5 J+ r' Y                        if j=i then
& |8 d3 a$ B1 L5 o                                D_From_To_Chart[j,i]:=0;
' J. s: n9 J" I* b8 U( b; f# p                        else
5 _4 M# o2 h- O8 }' H                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
! f2 X/ k4 L& t8 p                                end;
& _0 S/ _2 M/ I9 Y3 G                        end;
) c! R2 ^8 M8 T: _/ p* J                end;
        next;
- `4 S2 j; ?8 r3 snext;
. a; k2 N" W% C6 z; }) p7 x8 m+ X3 J
end;
. Y( D# c$ D. F: @* G
) B& ~6 n6 _! A' h    Lines :=0;
/ u4 c( ^: e4 g+ y        for i:1 to Number_Of_Machine loop
9 T4 a1 n1 M, C, o( Z% B        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
# W0 D' i$ `! Q1 j: P            for j:1 to Number_Of_Machine loop
' ]- b* E6 s4 p& n8 A* L- U                    if W_From_To_Chart[j,Rows]>0 then
4 r: P, n9 Z% h) |6 P( \' ?                            Lines :=Lines+1;
' h+ D& b6 X/ w                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
& t# V" A8 a7 X, B, o                        PartsTable[5,Lines]:=Rows;
' W$ F1 t7 W& t2 p6 \& ^                        PartsTable[6,Lines]:=j;
) P: k: J+ L+ _" J                end;
        next;
        MachineName :=sprint("M",Rows);
" e2 s4 o" ]* d8 R) V/ h        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;
3 S( e, w. L% e+ ^9 w        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
& k) l, a8 L  c- \* M+ A; O       
3 ^8 G4 w! I2 q# u3 r        BufName :=sprint("BF",Rows);
6 z! F: L: g- M) k+ M& F% 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]);
                Buf.Name :=BufName;
( W# W8 H  y3 z8 u4 V        Buf.Capacity :=5000;
; ]3 |( v( g; @5 @' i, q        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
7 f. w; ?- w6 zend;
6 k1 Y2 B6 C- C; z6 K0 z) |

五五

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

wudi

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