程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
$ t  G0 v/ x; a# I7 {5 D; V        i,j,Rows,Lines:integer;
3 R& ^* X3 v% I# J; Q% f$ ]        MachineName,BufName:string;
: U# i8 _# V% O) h; U; L: Z# z        Machine,Buf:object;
' `1 y4 p5 J+ R; {do
$ @2 A% U8 n' t% }, o3 b        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
+ U; A! a  {( \) t! R                when 32 then
* U! I" a+ g$ |6 F# y                        print "No";
                else
" K) O/ D% ?7 H$ X) J                        print "Cancel";
% ^3 N$ K. N( u% _6 m* h& m                end;
        EventController.stop;
8 g- `, Z' n$ \, ?+ Mend;
PartsTable.delete;
7 G4 e" S. o% A7 @* ifor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
% H3 B/ j3 Q7 q: `                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];
1 {, W8 S* ~" ]; U+ @- }, Z                        end;
+ r$ Y) K1 A/ \5 s# }$ j                else
( a& E- L) c3 q                        if j=i then
                                D_From_To_Chart[j,i]:=0;
4 Z. R2 ?* r+ U* M8 ^6 l                        else
, y8 K% `0 T% k! q0 W4 ^& S                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
" ?7 M8 y' M' @/ q9 G                                        EventController.stop;
5 U! @+ @6 x0 v$ Z' |* G& X) ^                                end;
                        end;
( w" r5 f) ~4 D! o& I                end;
/ R8 g: L  |* u! J        next;
next;

end;
$ M, @2 y% D0 u- a
    Lines :=0;
& c% S+ s- Y2 e. m" w9 A        for i:1 to Number_Of_Machine loop
8 G" I! C* X, W# S/ w, H) t        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
1 m) N0 @9 t/ @( g  q) s- U                            Lines :=Lines+1;
# V: t: P' w. \7 G; N1 X- O$ g7 @% `                        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;
+ `% u) E" @: D! a& M' e                        PartsTable[6,Lines]:=j;
& \; I$ \0 q/ E                end;
8 m5 Z) ?/ q& a/ ^8 G; Y        next;
) B% }- s7 n  a  h        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;
% }( j' m" {4 m  v5 U9 A- q) q        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
7 P# _8 ?% }7 X       
/ Z! x6 I  d0 n! {: L; l+ M        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]);
5 D2 f) m  q/ l* b                 Buf.Name :=BufName;
7 X3 t0 }. z# f3 u( e' f4 ^        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  R/ ~* i% c' D1 }; X/ a5 [+ E, w& Y        .MaterialFlow.Connector.connect(Buf,Machine);
3 ]1 Y2 t& e4 ~/ ~next;
end;

五五

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

wudi

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