程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ H7 P" j6 d0 z9 fis
% K6 [/ O/ k9 P: E' i4 G        i,j,Rows,Lines:integer;
# M- n! B3 Z2 |        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
8 C3 U( d( w7 R' U                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
4 d/ W# i5 s  W8 o( \        EventController.stop;
end;
# {) D' L8 v7 T& F; d: q% R0 E1 W9 uPartsTable.delete;
/ ~7 A+ d' u" V) gfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
" K1 E$ I& p( P$ A5 w                        if D_From_To_Chart[j,i]<=0 then
3 M* u: b9 o* H: {0 q/ H: I                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
' r  e) J  i; w4 P, ~3 z' ?                        else
! W' A( U3 {; A                                if D_From_To_Chart[j,i]<=0 then
! M2 d) d3 ~3 \  ~0 O% h                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
! x1 _- U6 i9 u- w  z) W' C. Q                                end;
' t! Z; v& L7 z. F                        end;
                end;
        next;
next;
( v. A7 f  {( V+ O9 u
, x* A5 {$ {) L- v! l3 B) |, q  }' mend;

+ n3 Q$ g) [5 s: @' c8 @% Z    Lines :=0;
        for i:1 to Number_Of_Machine loop
% y" l  v, S- v8 x* e        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
  Z3 F0 q6 N! H  B; B& |; a9 Q4 `                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
! @$ [" H6 I" I1 _* |9 t' W; Z                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
7 F% i/ Y- _* _' b# T9 }& J: X                        PartsTable[5,Lines]:=Rows;
% E  u: `+ B9 s  W% z' ]( R                        PartsTable[6,Lines]:=j;
                end;
. l& Q8 r1 x8 g        next;
        MachineName :=sprint("M",Rows);
8 m7 r" W+ c+ S# k9 h        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;
* u3 \' ?) |% k5 }        Machine.ProcTime :=5;
9 T! _, e* r0 Q        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
, s  H' M3 Z! s  z. r8 p' A3 t0 o' b        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]);
# u" T- b  H# K5 Q! s                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
8 S# K; ~/ l: {# u        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
1 O" X2 f1 y* ?3 Y% Z0 Enext;
1 i) g" a. g" [- U% R5 S" Kend;

五五

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

wudi

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