程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
- k) I  |! R; i* r8 v2 b1 N        i,j,Rows,Lines:integer;
4 Q' \& M' u5 [1 A        MachineName,BufName:string;
        Machine,Buf:object;
' m9 R: j+ n) Z1 y- p% T1 edo
; R: n0 O/ W7 T/ ~) Z" X' {        if Number_Of_Machine/=D_From_To_Chart.YDim then
! F: g! \! b1 M7 w                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
8 F& t, L/ b+ T. l% h4 y  b                        print "Yes";
                when 32 then
                        print "No";
7 E, h' n( k% t9 M                else
                        print "Cancel";
                end;
( G) [' F* `+ ^, K        EventController.stop;
/ P2 w& \$ C; n9 Z. X$ g  j& yend;
PartsTable.delete;
3 A+ n% E) \) C2 Wfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
! k) k  \* V$ A  H# s- |+ C1 z" L) [                if j<i then
; N( M4 f5 N! e5 O                        if D_From_To_Chart[j,i]<=0 then
/ {* s  d# u% }, {- Z2 `                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
5 Z. y% A! B" w* F8 F2 C" _                else
% C6 P7 ]- J( N/ h8 m0 l( v1 Q                        if j=i then
                                D_From_To_Chart[j,i]:=0;
% n* m, ?8 X3 K# z3 d! @8 m                        else
1 ~) c9 @* ]! J                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
' D9 g# g6 K5 v9 P  ~                        end;
# |  V( S  f! z- n$ _                end;
4 n# [+ Y: B$ t/ }& L0 V        next;
next;

end;

3 E1 |( l* v7 j# r, {2 E  T    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
' _2 M" ]8 R, ?2 h0 ^0 ^! r6 \( A                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
5 D7 k9 D) Z4 w+ T3 G                        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]);
        Machine.Name :=MachineName;
4 n6 }; ]' J) l8 L& s' `        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
1 w4 i. @% Y* q$ Y2 g        Machine.ExitCtrl :=ref(Leave);
       
: C5 ^  T/ U: k/ L        BufName :=sprint("BF",Rows);
7 w8 [. C0 _6 G+ Y        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]);
/ f1 f: O/ Z  V/ Q. ?                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
7 c3 t, G) z- G" R, H        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
' M' |2 D1 L% Y$ E0 b. q9 F

五五

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

wudi

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