程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
) p% s& h/ q0 A2 w) I+ zis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
- P) e1 n7 n$ A$ O+ d6 @                inspect messageBox("Number Wrong...,",50,13)
9 i: O1 Y" J/ j                when 16 then
5 _, L0 ?8 |, n( O! \% N                        print "Yes";
                when 32 then
6 P$ T* G6 ~* a. ~  W. N6 F                        print "No";
0 [9 Q& N# E$ `5 j                else
                        print "Cancel";
3 `: l+ l# X4 A                end;
        EventController.stop;
1 v! e3 N* c- j5 M2 L  qend;
PartsTable.delete;
" W+ W2 R7 x7 E, C* A  H& cfor i:=1 to Number_Of_Machine loop
2 K* _3 y0 A! R# z        for j:=1 to Number_Of_Machine loop
) Z! p) @  \. T9 I$ J! {6 R                if j<i then
  E* z, S8 ^4 J# }                        if D_From_To_Chart[j,i]<=0 then
/ r; K' \& Z% ^                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
9 U3 b; m% `  |1 u0 O                                D_From_To_Chart[j,i]:=0;
                        else
, v9 a9 T+ ^. U% t* z                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
% G6 q  B9 g4 O  c                                        EventController.stop;
. q6 \& V# D( i; q* L! j                                end;
6 t$ ]9 \  v* \' |  O# z/ u* C                        end;
                end;
        next;
$ y+ t0 d: Q9 _; Ynext;
! ~2 D/ X( L3 _* W1 R
end;

$ R, t8 C9 \9 U  e! ~    Lines :=0;
  N! M' l' z, l9 \        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
6 V( A, H: v  R/ o3 P0 V. ~            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  t+ _0 v! B' [) D' H3 L9 O                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% u+ m9 r& P# p) r; V                        PartsTable[3,Lines]:=sprint("Parts");
* X& }2 a) Y: k2 x- q$ h7 Q                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
4 |3 z' n+ R" Y! K' b        next;
/ Y& g& h" ]! s+ d        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# p+ e+ ^: m7 ^1 Q        Machine.ProcTime :=5;
' X7 J% W4 j; ]! C1 Z- Q) c& ~        Machine.label :=sprint("machine_",Rows);
" u4 B) B6 r/ m& s; x8 A        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
' u/ X+ s( ]: T0 ?2 r& [4 g0 N        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]);
& ]* {! a2 g( ^                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
* B. C7 W; o1 `" r$ Y! h( X        .MaterialFlow.Connector.connect(Buf,Machine);
next;
. |: S) u5 I$ \5 S+ Lend;

五五

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

wudi

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