程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
+ F+ t* b5 K9 E7 [        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 \8 c8 {8 G; D* J, q  G! e: ]        Machine,Buf:object;
" m) a. ~" _0 O) y" C1 ?do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
6 ?# [4 c! J- n2 l1 e                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
3 n# \0 W9 |- e& n: Y. A                        print "Yes";
                when 32 then
                        print "No";
                else
/ _6 ~$ c6 X, R* Z$ {2 R! A: _0 U                        print "Cancel";
                end;
        EventController.stop;
end;
! O" u/ K0 @" d6 D$ c1 W7 LPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
+ o4 \- z. U1 F1 J: V* o                        if D_From_To_Chart[j,i]<=0 then
- A7 L$ \4 X8 q5 d6 q/ \" |                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
  \/ b+ U  i1 S7 a/ b$ U                else
                        if j=i then
$ J6 t9 I) r' n. z                                D_From_To_Chart[j,i]:=0;
# \# }* n2 L# m' i, D% s* E2 a                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
/ o5 E8 ^. i, u" P& p( i: L# G7 o                                end;
/ u& |4 |- U% _! g                        end;
                end;
        next;
next;
5 q( |3 r) G. M& C2 m2 t
7 l8 N* J; s. f" ?6 j2 |  P! pend;

" V! u2 {$ J9 }3 R! P    Lines :=0;
        for i:1 to Number_Of_Machine loop
, m- w1 g3 ]3 J9 m- o5 B& Z) ]) F8 h$ f        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 l5 Z5 W1 q. Z' k; R8 [        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            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;
                        PartsTable[6,Lines]:=j;
                end;
, V- A; |( G7 }) \        next;
; t$ O2 ^8 @7 w        MachineName :=sprint("M",Rows);
+ n% d3 t4 U* s+ K( r8 x) ]1 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;
        Machine.ProcTime :=5;
, E3 v* L3 B7 h        Machine.label :=sprint("machine_",Rows);
: V1 C( E% a+ h' n- n" g% u        Machine.ExitCtrl :=ref(Leave);
9 z0 B6 p+ P. e# V- U( F       
! I7 T  L/ y2 `/ f! r2 f+ i3 [* C/ Y        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]);
                Buf.Name :=BufName;
0 l+ C" M: R/ f; x7 G$ j$ u        Buf.Capacity :=5000;
% g3 N0 K3 ?1 @3 k% g3 J! m        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
. P+ L% F2 W8 v  y& `end;

五五

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

wudi

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