程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 N: }2 a! [) \- Q) W) g1 }is
, H" b) @- Y8 A1 Q; l$ ?9 r        i,j,Rows,Lines:integer;
6 ]/ q# r% _9 z7 J% s; P        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# n1 \( m, H, t% b' h' X                inspect messageBox("Number Wrong...,",50,13)
: P, A4 g# h( z9 T                when 16 then
+ q: ]- p3 k8 ?! a- ]& {                        print "Yes";
                when 32 then
9 I6 ^! `5 D9 w4 p$ q8 [                        print "No";
" E5 r! Y  I  y                else
+ K+ U9 d' q4 ^- C/ r                        print "Cancel";
                end;
( t1 H- z( e/ v% y9 G& u0 q        EventController.stop;
/ @9 N' a& F: q6 Mend;
PartsTable.delete;
, Y; j8 M6 e+ ?! G% H# Bfor i:=1 to Number_Of_Machine loop
: X: v; P# U+ Z, G. F        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
) k" c& i; e% k: v/ r                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
8 L* P, M7 j5 N                        if j=i then
                                D_From_To_Chart[j,i]:=0;
# q+ F" ?2 b4 V5 M! L, F9 o" U6 r                        else
' y0 P8 r" l' `; {' I  v                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
- n1 n5 N3 l/ n! d8 c6 P                        end;
                end;
        next;
next;
7 z+ b& S0 |/ o6 r; w7 X' J
end;

" i( x6 F2 I' ?  }7 n    Lines :=0;
0 i0 f9 Q' ~' m; p( S' E+ h, E        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
2 R6 l2 \: l8 Y& V9 Q% v  R  ?            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
) b: A; c7 o$ N% }                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ o  y5 \) F. H4 n7 i                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
$ a" A8 d! Y3 i! r7 f8 h) ]                        PartsTable[3,Lines]:=sprint("Parts");
3 ^; ]9 Q) ^6 @3 H                        PartsTable[5,Lines]:=Rows;
* I4 y- @/ l' }. q/ s/ S' X, k# a                        PartsTable[6,Lines]:=j;
/ A$ d8 `* A- r/ |" y, A                end;
        next;
+ o; v, P$ D2 z9 v" G        MachineName :=sprint("M",Rows);
9 V1 @5 H- g" ~! F" S; y% p        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]);
2 R6 y9 k. ]; m# g; U/ U        Machine.Name :=MachineName;
# a/ H+ [2 c8 H5 a+ U4 e$ j        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
& B" o2 _" f; R- O# I* L        Machine.ExitCtrl :=ref(Leave);
7 C7 z& c, Y1 U" u! ]1 B       
; A3 G5 w! G6 O9 u! g: W        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]);
& o0 N/ l0 K; ^- o( p0 K" C% e                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
0 Z1 F$ h, R) D% X5 q' w' C7 T' B        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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