程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
5 ^5 T6 C( L9 E, o; sdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
8 t& T& y7 W  p$ h% r5 s                inspect messageBox("Number Wrong...,",50,13)
7 V, {% x- J8 i* n* U( E3 T* e                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
2 P, c  q# \8 b! Q0 ^6 z                        print "Cancel";
                end;
! n, _! c' K& }+ q6 ^        EventController.stop;
end;
' `; g% J& S5 }" O+ iPartsTable.delete;
! w6 ]$ B3 S9 cfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
/ ^! v1 h; V' s' N2 v                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
: w3 M/ o6 b4 u1 \- T                        end;
5 X7 |- p; n3 Y$ J! J                else
+ A2 G6 F4 Y8 H; R' G! F                        if j=i then
& U. t2 u; ?' @9 y# X% N                                D_From_To_Chart[j,i]:=0;
! ?' g2 J! {: o0 n) C, `1 \+ x; t- ^                        else
+ X% T5 c  O% S! u- X4 A0 c                                if D_From_To_Chart[j,i]<=0 then
3 K% H6 `0 a* M7 |1 R                                        messageBox("distence<=0...,",50,13);
) `5 v! u6 R1 o                                        EventController.stop;
9 S# u3 e- X3 R+ w) f  y1 |                                end;
' A$ `: w; n( v' k( Y/ ?, @" ?                        end;
; U. D# N9 o( ~" y9 u! i                end;
        next;
next;
- d2 B% S' ~+ M& y' l5 Q
end;

    Lines :=0;
" t" V4 o, Y( s8 D        for i:1 to Number_Of_Machine loop
' r( n# M9 X1 Q        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
" B% r# V% x0 O  H) f6 P4 f                    if W_From_To_Chart[j,Rows]>0 then
5 j0 ?5 x9 J1 v- A$ L                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% G/ t- N) r* b; L5 Y! F# B# c                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
# |2 }. ?  O, D9 H7 k. I$ S9 A                        PartsTable[6,Lines]:=j;
& d; _2 j: _. |% I  a                end;
1 n8 i4 j. h9 u) y        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]);
- n! Y  L# B* Y7 A        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
: ^' Q. h/ I' \0 c* |6 i        BufName :=sprint("BF",Rows);
/ o7 D) }& z9 b( Q, S        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]);
, n7 w9 Q& C$ H/ r9 t                 Buf.Name :=BufName;
3 |+ Y8 Y$ t% P5 j  G$ Y8 C! c        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
; a: R- X8 }( o; s7 k8 H        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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