程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
- I6 y9 S1 D. m8 T" Wis
! t' [7 r# z' e, L  K* N        i,j,Rows,Lines:integer;
0 C. s" d) T* M* }4 f6 F        MachineName,BufName:string;
. f" X8 X: e1 R( R$ U' i% g        Machine,Buf:object;
do
1 v$ B/ |6 Q3 h, l, n8 w& H        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
) u, W0 R0 b3 R; k1 N                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
9 }0 k7 Q9 L! e5 h0 O                end;
        EventController.stop;
  s" e% R) W: F3 s" b& y  \end;
  o4 x( ]" G5 O4 N2 VPartsTable.delete;
) |! S+ g- X8 P0 N; _) @for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
7 d+ r' z0 ^. m; o4 u. P                if j<i then
7 m, T3 C0 T9 \) _# y$ p                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
+ H, U+ b% H6 d: E                else
& I; b' i3 p9 U8 j, o* G7 Z9 q( {                        if j=i then
. b6 A$ L6 z; h# `. j. W6 z0 R                                D_From_To_Chart[j,i]:=0;
4 e$ ^: s% r1 s; E4 f# l4 J2 p                        else
% y& h* U+ m7 t# U                                if D_From_To_Chart[j,i]<=0 then
: O9 D7 a. J, e( j8 O9 Y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
  L* u  J0 W) e! ]+ P                                end;
5 S2 _" N# ^( k( L3 m; T                        end;
                end;
        next;
+ ?$ H0 }/ g, x+ \% p* C$ P6 Bnext;
; {3 K8 x6 _8 U5 E
end;

1 a+ }( ^* J! Z5 C( g  W# l1 G    Lines :=0;
# Z5 X. S2 M: X* [8 j        for i:1 to Number_Of_Machine loop
& h' E5 u( @7 u$ o" ?1 D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
. Q3 l% y$ q# Z, L( T2 U            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
- j8 I. U  ]6 y1 I                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
( G0 q" n4 t2 }7 L1 J) n                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
. K! C7 R4 l2 p/ F        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;
, x, c& B- J4 H" t        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
5 A3 W& ~: B; I; T' h  W        Machine.ExitCtrl :=ref(Leave);
       
6 q( M- ^% b- N4 H# {+ n) {        BufName :=sprint("BF",Rows);
2 T4 |* y& J9 F* F8 _$ ~% W9 ^! o        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;
, ^& e4 d1 U2 k! R, N% ?. s6 y        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
* B( Z* }/ Q# T$ m3 g$ ~! s. ^next;
* G! E% t/ c- N$ V4 B" R7 Bend;

五五

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

wudi

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