程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 F* I# N0 q. G$ y# G! H, i! R* S) I1 o2 _is
% [0 o! r! A+ h1 |& |        i,j,Rows,Lines:integer;
. [& h! ~" U5 {5 d9 L1 Y9 F5 N        MachineName,BufName:string;
        Machine,Buf:object;
, B& y9 i. n3 M: w8 l. Xdo
/ P  h3 f) B: O' A+ d: p        if Number_Of_Machine/=D_From_To_Chart.YDim then
% D. X& q+ M4 Q# q) p                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
3 l7 ?+ f/ r* }* P& P# f                        print "Yes";
                when 32 then
                        print "No";
+ Q) _/ s/ r  B2 K2 n                else
' @- {# _* \0 }3 ]; `                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
8 C5 u( Z7 }2 w% afor i:=1 to Number_Of_Machine loop
8 z. f( x: r% R) f6 Y, Q2 ?8 M        for j:=1 to Number_Of_Machine loop
                if j<i then
2 _3 E! Z' ^; {' C& h3 h* @                        if D_From_To_Chart[j,i]<=0 then
, T5 v0 f+ x* o4 ]                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
+ f3 B4 r7 S/ E                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
3 a5 l, c4 V, W                        else
                                if D_From_To_Chart[j,i]<=0 then
8 d; q2 B4 ^. X+ E( o                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
0 @: T$ y3 ?3 a7 W, C8 d                                end;
                        end;
                end;
: D. i0 T: u' Z( C# v        next;
, M: c, S& Q7 {next;

end;

    Lines :=0;
# W  K0 O% P4 p2 N* H8 ?- S        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 P' `4 }3 N( l! m* ?        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
  M$ O4 {2 a% r9 ]$ I; R- n                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
* j2 Q, L- E9 I  `! ^2 r: ]3 O* b                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
8 P1 A, D2 d6 ^- O) d) [+ X                        PartsTable[6,Lines]:=j;
& v* A6 A6 `: H                end;
' u! ?' X0 P  D  A. U        next;
% e( d5 e% I$ W        MachineName :=sprint("M",Rows);
) m; w9 f7 \& C2 L5 n# i        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 y. r- l# j% _        Machine.ProcTime :=5;
/ I& U) B9 J2 O6 Y6 V        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
1 A. l- Z; D2 |  b- n$ Z3 x        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]);
( |6 j) {7 @8 [& l0 m2 d                 Buf.Name :=BufName;
0 d- @7 ^; h- `        Buf.Capacity :=5000;
  o- y) g3 @& H" a  D' O9 u        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# `1 F+ p* l% o& y+ z1 N5 {0 ]next;
: l. P7 W: G6 I( V0 nend;

五五

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

wudi

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