程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, ^% b% F9 _! tis
        i,j,Rows,Lines:integer;
0 [, p7 @- g3 m+ p        MachineName,BufName:string;
+ D0 h: z- }- Z8 g        Machine,Buf:object;
6 O' R3 U  t* E. ~do
$ y$ u& p, K3 m/ s  }- m        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
, Y; l* C. T! J                when 16 then
$ s- i) _) _  M, [5 C4 H                        print "Yes";
  B! A! U: R; Z( r+ ]/ N1 g                when 32 then
                        print "No";
* J9 q1 @9 Z" B0 f1 z                else
                        print "Cancel";
4 ^- B2 c+ M6 C                end;
1 |( @9 A5 J- M) i. e        EventController.stop;
+ n+ @: c' s1 e2 S1 c+ Pend;
5 b% ]$ V9 t: h: {- S" KPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
9 G0 a% I9 E% L' B( v/ {, [                if j<i then
3 y5 P1 q" ?) b, T' M. ~( E: X5 F! ?                        if D_From_To_Chart[j,i]<=0 then
; Z) s1 @! \' j6 z; {+ F                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
8 q1 f4 n, _$ G                        end;
; x4 [2 I, B4 {* K" c                else
                        if j=i then
& O; ?$ z: t/ C2 N$ ?                                D_From_To_Chart[j,i]:=0;
' P2 g% h7 B- D: I% ~) r6 A                        else
' s. B( T( F) o. ~                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
  @) ~0 ?+ Y/ j" i; `* l) W                                        EventController.stop;
2 Q5 x0 `% c! H3 X                                end;
                        end;
                end;
) d1 P4 q. R( L( q* U1 s: H        next;
next;
) b/ P% a. _) K6 G
: z+ n4 K* o. y: J& @end;

, y, g5 g; W6 v1 S# Q1 R    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
: @, ]$ ~$ ?$ J" n- S( P4 J                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; K) V: M# b9 O( e                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 @+ c* X" ~. e/ _, D# T6 p                        PartsTable[3,Lines]:=sprint("Parts");
2 S9 q* M! o4 K9 A* g" ^7 `* ]                        PartsTable[5,Lines]:=Rows;
' @: q7 r/ N7 I2 ~  m                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
3 c2 n+ ^; b) D% r# T' j        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]);
% `5 }7 Z) r2 l        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
! k3 u: s/ X% }; {& {2 C: a, N        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
. F. W/ l- J  T; i: Q7 z        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]);
! h% ?, g0 P7 s- x8 p% E. j; M5 L                 Buf.Name :=BufName;
  C( |2 G7 d' K1 x1 u        Buf.Capacity :=5000;
6 V  e: H' d9 F        Buf.ProcTime :=0;
4 P" i9 `1 f) O8 D, X, `        .MaterialFlow.Connector.connect(Buf,Machine);
, R7 H# v3 C$ u; Z0 |next;
end;

五五

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

wudi

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