程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( Y$ t% z4 _$ r, {6 U0 t$ iis
2 I9 G: \* M. ?        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
+ J! c" _) ~% l1 ~: n  W        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
" N, M' w+ }5 X9 w5 F                end;
7 T% v% K6 y  h: \) I0 i% O0 U        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
' U4 {- |# E7 Q# ^; ?- y1 O* `) v/ S        for j:=1 to Number_Of_Machine loop
/ e) C+ D: |4 `: K0 l0 a                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;
, e7 }& p1 E1 R3 N- ^                else
0 M! _! d! R+ M! ]. x) K$ o0 Y) t- t                        if j=i then
4 f* x: a5 U" X- W2 Q. y: H" Y+ l                                D_From_To_Chart[j,i]:=0;
* F1 @$ ], x' I7 W" c                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
3 ~  |/ q: m/ z! Z; V        next;
next;
' c, p! Y5 y. F' r# H
" J4 f8 @) B: P  ?5 {end;

    Lines :=0;
9 D5 Z. \8 j9 c  D        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# r: O; Q; P% \' U, D        MachineSequence[2,i]:=Rows;
0 ~  \% n$ k! ~            for j:1 to Number_Of_Machine loop
% R. P5 f! o7 P2 u9 }/ `                    if W_From_To_Chart[j,Rows]>0 then
3 {5 d: o( j, B: y/ g/ }                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# _$ B' T( S0 B  t: y, F                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
; [& V1 Q; D6 M+ w3 H4 o9 w7 f                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
! @, ?" }) |& U                end;
        next;
        MachineName :=sprint("M",Rows);
) Z/ B2 J8 x2 o" `, L3 F; G/ Y        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]);
. u/ C  P# c. G$ Q        Machine.Name :=MachineName;
6 D7 f& l* T5 _3 f3 }+ _9 b        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
& r$ v, ^0 ?2 G+ z8 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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