程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, C" s3 \* a* \) pis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
5 k9 b3 }$ d/ {  Ndo
( t" D: K1 o- P0 n$ R; Q/ W- j/ t        if Number_Of_Machine/=D_From_To_Chart.YDim then
" O4 ?  J+ X1 \8 |) e- N5 v                inspect messageBox("Number Wrong...,",50,13)
4 |$ b5 h9 t! X: [0 T2 l; B" v                when 16 then
2 v9 f! G3 @; l1 ^# @" ^                        print "Yes";
                when 32 then
                        print "No";
# m9 N5 W. H) e4 c+ W                else
                        print "Cancel";
                end;
        EventController.stop;
end;
4 W, |7 [( v3 Z0 s7 T  V# oPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
7 i- D; x0 k9 H                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
2 z6 u  ]7 ]; l/ i  H& @0 J                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
6 Z! n9 P% Q; p( |" B9 E                else
                        if j=i then
# B/ C9 B& D0 B! A' l                                D_From_To_Chart[j,i]:=0;
                        else
2 O3 Z! W' y; D& o9 h/ }" Y                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
) O3 G" C& Z$ w4 ^                                end;
/ m  b( m6 s3 y6 L& T1 n  ?                        end;
6 `5 ~% b+ b2 U3 R  H, i                end;
        next;
4 R9 C" \+ U3 |& mnext;
  N, |; Y% C" I* q* N0 K
. y  [' _/ v& y$ J3 s/ N" ?end;

    Lines :=0;
" x8 Z% a; _3 I        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 e: Y" N3 \4 d" k! L$ n$ M        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
& s) L* y: \# _+ [- _                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
! s; Y* @4 ~; E! T                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
& V) m, n9 y3 N                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
0 Q9 Y* M1 B! E3 Q' A& m1 P        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;
        Machine.ProcTime :=5;
& m3 D+ g$ O" T7 D6 F1 Z3 y        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
2 T' A7 f/ P5 ]5 C- I& w       
        BufName :=sprint("BF",Rows);
; G  L" n3 Q" j        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]);
' @2 v$ ~1 h* y( [$ d. O& ?0 w                 Buf.Name :=BufName;
4 N5 {& _" ^/ u7 W5 w        Buf.Capacity :=5000;
- Y# z* v0 Q. i/ N, r        Buf.ProcTime :=0;
4 ~. V2 P. D, J& P) J1 B$ {& U, b        .MaterialFlow.Connector.connect(Buf,Machine);
! r& h& c# a. S) c' a5 Pnext;
end;
+ `6 [5 g# X- f. u! o* t, F# F

五五

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

wudi

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