程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
: O5 S% C$ w3 D( J, y- x        i,j,Rows,Lines:integer;
( ~$ J# h% a. [9 B. Q, @# ?* y6 g+ y" t; L        MachineName,BufName:string;
# l1 ~" J8 x2 @8 f        Machine,Buf:object;
8 u0 S0 H$ F+ [do
% ]: _  ?4 {1 |* M2 L6 s, }  O+ F& {        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
# w2 z0 ^4 S6 |                when 32 then
                        print "No";
                else
  b- K% h# |8 p- S1 _4 R& d. u                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
2 C8 e( f$ M& z0 R8 `( S8 n% e! rfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
7 f* p% G" W8 _) S3 T  k. u                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
' b( X9 M# ~. |5 Z8 _& N( ~9 _                else
4 V* s. D+ x) r                        if j=i then
" d1 E" ^( J6 Y$ s8 y1 |# k                                D_From_To_Chart[j,i]:=0;
, t# a. a6 O& F3 x# ^" s0 |) s* `                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
2 e3 u. s9 [6 y* T6 h; K                                        EventController.stop;
                                end;
4 i) [1 X: U& S$ G                        end;
                end;
( }% @4 j: |9 F; z        next;
, B: l, R9 ~( E& |& p" E# enext;

3 |/ I% b7 G- T* h8 Pend;

    Lines :=0;
3 @6 t4 n$ t4 [4 f. U        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
$ n. Q9 S- C1 v            for j:1 to Number_Of_Machine loop
0 C7 ^6 @0 o8 l; v                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
4 V. G- ?2 H& c1 p; }                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' S5 y7 F1 @$ I4 Z; R! ]                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
" ~0 e! ]( a) ?6 _                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        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]);
0 Q- f/ z5 A$ C- [1 s3 S        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
1 q; Y! [% k( \+ p3 D0 V        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]);
% o1 N! @3 D1 G. a$ h                 Buf.Name :=BufName;
0 q+ z9 y3 q% C! s) s  n' E        Buf.Capacity :=5000;
- X. ?: n; R: c, m3 V        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
2 @; h  y4 D4 F$ @0 b" ~( Gnext;
end;
1 Q/ r  H# K6 x! s

五五

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

wudi

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