程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; [1 m, u+ R) F4 v: S% jis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
, T2 u% J$ _+ d2 B5 g        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
7 E8 i0 [& I" H1 M5 M$ G                inspect messageBox("Number Wrong...,",50,13)
0 g1 l$ F+ C) b, K/ N1 h                when 16 then
                        print "Yes";
" a4 P. O1 y" n. T. H                when 32 then
+ B5 y2 f6 A) f4 B% p                        print "No";
$ F6 m/ p% v) y2 S+ m& D& h% J                else
# f3 L& u! p- p7 y4 o                        print "Cancel";
: h7 T9 q8 j. B! D% v& k7 L# h4 X3 U                end;
. j5 X4 x* y$ Y& E& o        EventController.stop;
end;
PartsTable.delete;
- V+ w$ `) Y$ u8 H6 Tfor i:=1 to Number_Of_Machine loop
6 |8 e! j. \1 G        for j:=1 to Number_Of_Machine loop
                if j<i then
) c7 I  C) a, ?2 j, D0 {. T' J* x                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
, C; j; J8 ?9 I% `/ w8 s                else
; }' [9 A- U1 c                        if j=i then
$ q; @2 a5 Q' C, a6 v                                D_From_To_Chart[j,i]:=0;
6 g7 R& x4 u" w. O4 c                        else
# \; G( Z/ M) t$ S                                if D_From_To_Chart[j,i]<=0 then
# W' J6 q5 c6 ]4 @, F                                        messageBox("distence<=0...,",50,13);
0 [) ]7 K: }4 H7 c6 \0 k& C6 D2 X4 F                                        EventController.stop;
                                end;
2 ^! D7 V5 P% s* D4 z$ G. k7 ^& B6 s                        end;
5 |& U) d; w1 T$ ~+ c3 ]/ S                end;
  w: z; [" K( C8 G, a        next;
next;
5 U7 q9 u, O3 b6 g4 I/ C5 w+ `5 a
# _' G- F, x; D- E  v3 }% L1 y) bend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
3 c6 C* j# j, |- d            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
4 R" Z- R6 L8 o% E; b8 _                            Lines :=Lines+1;
' D. }2 K6 w6 `1 e                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 `4 M' U# I4 R- N4 ?! m+ q( V                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 ~1 L! L2 U' h9 u# v                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
6 {9 A$ H. W+ R$ d/ F6 N        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;
        Machine.ProcTime :=5;
* g3 E  v; ~2 T8 \8 l1 |. d        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
" U5 y: D8 _( A  g! w; Z/ Z       
        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;
  h. u' X7 F; K( M        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
5 l$ R( ?6 |; e        .MaterialFlow.Connector.connect(Buf,Machine);
next;
" ~) v: E2 u! \! o4 o$ D2 Oend;

五五

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

wudi

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