程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ N) o7 F/ V9 y4 q! c) L. v3 Jis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
7 N/ G- h* N7 b6 R" H% W# k; bdo
& w, \) ?/ l/ L* F- s; N        if Number_Of_Machine/=D_From_To_Chart.YDim then
6 M1 f% P+ |( ^. O8 Y6 f& n1 B                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
$ X" k9 t  K( Q3 s                when 32 then
                        print "No";
! Q3 e8 \8 L0 N                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
. {- k; Z9 d4 k9 Y1 @for i:=1 to Number_Of_Machine loop
' i: p! k" c! i1 L, P        for j:=1 to Number_Of_Machine loop
                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;
                else
( O) \4 z) n; A. r, ]: e                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
9 s9 Q# W4 _7 _- |/ `& D                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
: M9 @2 v) E; n! q                                end;
. ?6 S  a0 p+ h' t, ]                        end;
8 b9 w, G9 P/ d2 P) s% k. H                end;
        next;
next;
4 ?$ w1 x3 `. D, o
end;
9 l$ t* Q1 a; X( ~  m$ G. a
    Lines :=0;
        for i:1 to Number_Of_Machine loop
( k9 P2 i$ W# V) g- x/ B  ]        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
; a) a4 s; N) ?) L            for j:1 to Number_Of_Machine loop
( j& l; U4 u8 L: L* Y- ~                    if W_From_To_Chart[j,Rows]>0 then
3 |( t* r& a2 Z$ f9 c2 s                            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;
( g* b4 A7 A/ R0 n; e0 T                        PartsTable[6,Lines]:=j;
                end;
* n0 B+ h/ Z5 j4 P; y        next;
! ]. v# |8 M+ k# D" z  k        MachineName :=sprint("M",Rows);
% `7 C9 ]) A) m$ t        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;
5 m5 J- U; x5 x# r/ M2 j/ A6 S        Machine.ProcTime :=5;
+ Y8 }0 \2 J$ X6 z5 W        Machine.label :=sprint("machine_",Rows);
5 H9 J: s9 K' `9 x* R        Machine.ExitCtrl :=ref(Leave);
& f/ v4 J. v" \8 @) S       
7 }  O, E; u& N( G        BufName :=sprint("BF",Rows);
3 U' Z& l/ \5 W& ?, M0 |/ G        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]);
: W& V4 `" {0 p1 a! S                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
# R! P# @7 h# d        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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