程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
! z' K- N' u. I- D" o0 C9 b! cis
9 C- d. X# l6 K' U        i,j,Rows,Lines:integer;
7 }: s  @# w  l$ e' p        MachineName,BufName:string;
! z% B* U0 Q% C! }; N' o* k        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
9 |: \1 d# j7 G9 {: z. D3 a                        print "Yes";
* U5 F- }- s7 ?3 ~9 F* o                when 32 then
" Y' q. \; b% \( W. y; K) ?                        print "No";
2 w* V/ x4 C+ B9 z3 a                else
" N7 h" Z. ~% _# d                        print "Cancel";
                end;
        EventController.stop;
  K/ A# g& i3 E0 Bend;
PartsTable.delete;
* K( Q& D# b- gfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
6 j; X3 d* L! h+ q+ i' q                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
( c% K8 b; L. A! @                        end;
9 c1 U, Z/ Z% g: \, k9 F2 Q                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
6 t$ `6 x' n, k2 t. |3 F8 {                                        EventController.stop;
                                end;
                        end;
1 J3 ?; K  U3 f4 y                end;
        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 _( a  K& |# v! f) F% ~4 s) i        MachineSequence[2,i]:=Rows;
  O- t- @# m8 Q4 Z6 B            for j:1 to Number_Of_Machine loop
$ V. i2 g6 B4 r3 F4 o& R                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% C  V. p/ k# J: O, `/ m) u                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 J  X) \: M: [5 S1 z                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
0 U6 e$ Z1 c3 X                        PartsTable[6,Lines]:=j;
                end;
) U3 s, n# v/ \8 E        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;
/ F: `  V) Q( t$ Y( y        Machine.ProcTime :=5;
8 n5 X" e' {' a2 p        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) c( P" J+ o1 `       
        BufName :=sprint("BF",Rows);
) c& A; k3 N- B9 ?        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;
! F- i9 j" b6 _* ~+ ^1 `' |8 v        .MaterialFlow.Connector.connect(Buf,Machine);
& J8 Y: @( a# |6 A/ {next;
end;

五五

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

wudi

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