程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
9 \3 `7 Q7 R1 F1 s        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
: C! d. g* L7 G        Machine,Buf:object;
1 \, d6 n1 u9 ~, C2 e$ ido
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
2 q+ Z0 ^* y% `$ ?                when 16 then
7 B9 A/ i2 H, C% V4 C' W                        print "Yes";
/ X3 {5 w9 d' U$ y8 \                when 32 then
                        print "No";
9 J/ K2 h4 l' U2 _5 G( I& W                else
                        print "Cancel";
                end;
        EventController.stop;
& y, E7 p! P5 r; R' q, Zend;
+ y2 X& ^" f4 I% r; A# EPartsTable.delete;
' Q1 ]- \# z6 z# r6 ?for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
5 \$ L9 X. q/ @9 y6 {/ I                        if D_From_To_Chart[j,i]<=0 then
* j, F/ Z3 S1 X; [                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
/ m' [. N* J* ?1 U3 V& U, p& I                        end;
. E/ z5 X9 k1 m% X5 z6 o0 X8 @                else
% w: P9 I; ^( _7 I( D                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
" c) C4 H$ p! F; i5 H                                end;
                        end;
                end;
" v- @2 x! e: [: S, Z        next;
next;
+ ?3 H+ b* P' m! S
" }, Y) Z# g, U3 hend;

# U! ~( W1 \5 J( H% @) e! P    Lines :=0;
        for i:1 to Number_Of_Machine loop
8 k' g) `  F! S/ [& O        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
* z$ A# ?# _/ M) ]6 p% ^5 t0 }            for j:1 to Number_Of_Machine loop
7 `9 w  d/ u9 A2 `/ v0 D- t                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 p4 M. i8 I4 n% _2 h/ q                        PartsTable[3,Lines]:=sprint("Parts");
; @4 S2 x0 F" \+ h6 m. i9 ?" K, p                        PartsTable[5,Lines]:=Rows;
3 Y- B0 m7 |$ |& F! \' |0 H                        PartsTable[6,Lines]:=j;
" s* o2 ?; i4 v& G                end;
; X$ }8 {  O/ O$ A) s" t' g: A) z        next;
        MachineName :=sprint("M",Rows);
3 ~/ O) b3 e2 C5 A) y/ B/ M& R        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]);
$ T4 U4 ]- _" u( i* |2 s2 v, T        Machine.Name :=MachineName;
8 J6 h% N. d) |# d        Machine.ProcTime :=5;
0 g; ~2 f1 e- ?$ w; w# b* c# |        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
# a9 H; b6 ^1 n$ ]  r* G9 _0 O       
        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
$ w6 }1 N* }3 D. l" h$ F        Buf.ProcTime :=0;
# Z; l9 @0 o$ F. [) p& Q, O        .MaterialFlow.Connector.connect(Buf,Machine);
next;
5 k- p$ @3 |7 ?) P4 bend;
, h/ }+ i) Q+ Q2 ?

五五

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

wudi

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