程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
) ~9 u! B1 P& s$ y( M0 Q% W        i,j,Rows,Lines:integer;
5 s+ E3 E/ ~" v- A# R; z        MachineName,BufName:string;
        Machine,Buf:object;
: v6 n. Z& c4 \do
) O5 \; L' J0 q7 T        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ l. B7 P5 A! l; p$ q7 d                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
. B3 _" n3 h' V8 l5 r7 B' d                        print "Yes";
+ \. E5 v$ h' y9 ^8 }                when 32 then
                        print "No";
                else
                        print "Cancel";
7 g8 W2 ~# F, y% N6 q( P( |                end;
# Y, @4 c" F% b. Y        EventController.stop;
# H% ~- T9 T6 P9 i% }+ e8 J- yend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
) T7 h- l4 y0 B$ Q        for j:=1 to Number_Of_Machine loop
1 q5 Z1 x1 _4 y4 |1 C8 @6 M* @                if j<i then
, Z7 K+ O- b7 _2 P' K' j1 M                        if D_From_To_Chart[j,i]<=0 then
, P* q8 s2 Y8 W                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
2 C, `& t; M% }2 S& m                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
& f. R" X8 Z2 T% D                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
; n6 N: ?6 R0 }/ w                        end;
0 B& o* c7 `' L, d                end;
. R6 ?: a, H$ l" ]1 c        next;
next;

end;

) _3 c% J' f) R6 E    Lines :=0;
$ q- M. V7 e# G* }1 ?        for i:1 to Number_Of_Machine loop
/ S6 n  ^# ^$ b/ z# D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
" m( }2 e0 Q  Z% m6 s5 V4 ]; {        MachineSequence[2,i]:=Rows;
5 r7 d7 p/ @& Y' ^8 x: ]            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
# {: N, t1 K' X/ M( d                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
7 Z. q  v1 u0 k$ P/ N) B! k4 X$ v: R                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
6 ?9 `7 z8 r/ G7 ?8 e                        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]);
, W, @9 U9 Q" R. E: A        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
; J3 k7 _# c2 J( Z       
# m3 Y4 t7 k2 r) [9 X( z- N! `        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]);
) ]9 i% K" [+ C5 K. o                 Buf.Name :=BufName;
( ^& M3 }1 U6 A3 q! Z, N$ N        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
' M% }0 S7 G; i9 @" P# hend;
% c0 j. s9 o4 z/ K

五五

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

wudi

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