程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
; d4 x" _4 N& v1 [. \        i,j,Rows,Lines:integer;
. x4 F8 I3 ?, i! O: @        MachineName,BufName:string;
( i3 S5 w% e7 W. b        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
! g% l/ \' ^8 w- z4 a: a                        print "Yes";
                when 32 then
                        print "No";
# |! Z: ~6 N  p; s. G( [                else
& K" k/ s$ `9 ]; A0 c                        print "Cancel";
                end;
& M! Y' n; W& w/ w/ ?# Z# x- J) o        EventController.stop;
7 b% C2 s5 S: e4 \( U5 U3 \end;
+ H* h$ \; Y7 a8 z% QPartsTable.delete;
1 [* W1 z) h  B$ }5 s2 Pfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
3 H, ?0 ?  U" N% E6 d                if j<i then
# T+ M# y7 B' e- E                        if D_From_To_Chart[j,i]<=0 then
5 }% B1 j- [# |0 Z( v  x/ {# i                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
2 [# |% P3 B# U  T: Q! h                                D_From_To_Chart[j,i]:=0;
0 W9 O$ u( [8 v                        else
                                if D_From_To_Chart[j,i]<=0 then
+ M/ {) u4 ~0 B, U                                        messageBox("distence<=0...,",50,13);
7 i8 ?/ G. \  d' d3 U9 D+ T0 o/ \                                        EventController.stop;
                                end;
                        end;
                end;
        next;
: b2 B, \1 `$ l- K, Knext;

end;
3 `8 {+ a, k! m9 S2 o- o; Y5 ^& ?
2 `' D; g% Y& t6 ?/ r# E    Lines :=0;
9 L4 R9 K, b3 y+ N: ]% J        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
" Q# B' f4 n2 E" `" w. c            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
7 Q  l* G' w) a" I& s' }                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 U6 w! ]% X' j1 F' t                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% T1 o( e- U; x4 t) y( h                        PartsTable[3,Lines]:=sprint("Parts");
. s6 h- e+ o% y3 f                        PartsTable[5,Lines]:=Rows;
4 P# v( R: I+ N( b: B2 o: M                        PartsTable[6,Lines]:=j;
9 E# }1 {" l6 s8 p                end;
        next;
; {9 p& Z) r( ?0 R0 G# p        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;
! M' X6 U4 l7 U) z) U        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
; _+ @" V" X3 A* ]; S        Machine.ExitCtrl :=ref(Leave);
2 B) o$ u  w3 q$ w/ T2 J( z) }       
/ _- v+ R, }. y, O( \        BufName :=sprint("BF",Rows);
' g2 C$ }* H, C  q! a& ~: O& H        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]);
" V! V1 k# Y. F/ S- x                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
$ B+ @% b0 p0 M3 v1 N$ z5 L        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
3 }# q7 Q1 ?0 u5 A: m3 n3 C+ Uend;

五五

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

wudi

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