程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
6 s9 r' j2 y7 W        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
; s$ Q! K- Q7 Hdo
, a6 \' O+ D! g* d* _$ A        if Number_Of_Machine/=D_From_To_Chart.YDim then
& ]1 d& |% \& Y9 A* A5 a* ?8 U                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
8 C& v3 w6 F1 W/ ?) V% B                        print "Yes";
/ Z5 p' V3 ?# V/ J. g9 y                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
+ X7 i* q) _( D" ]* O% s        for j:=1 to Number_Of_Machine loop
                if j<i then
) |2 f' E/ e/ r                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
. A3 e2 v& F( E$ _                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
. a2 B; `" c' A% U                        else
8 A5 W8 ]2 D. @0 A; X                                if D_From_To_Chart[j,i]<=0 then
5 e" b, ^- g* q5 P; `                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
$ o+ G4 P, ]4 Q2 k% S! n2 i                                end;
- s5 |+ u  E% A  P: ]                        end;
                end;
( v- V) L+ G" Q( }4 R        next;
next;
& d8 \9 E% Y. |
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
  n. ^; D! B6 t/ W        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
5 D7 U! G) F' t2 t" B0 Z! B% p8 K2 `9 P            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");
! g0 P) Y( W" ]* e: L4 m5 W) V$ i                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
$ ]3 ~: B8 d4 R( u. J        MachineName :=sprint("M",Rows);
* B! I" \* p  _  _        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;
$ _8 ~0 J- C0 M' R; E# z4 {        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
# ~' y0 K  O: r        Machine.ExitCtrl :=ref(Leave);
. P- P: ~7 V& E# b- l       
" N5 d/ l: m+ t6 V6 |        BufName :=sprint("BF",Rows);
& B* ^7 B9 C9 A        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 C2 d$ c# L8 L        Buf.Capacity :=5000;
" l% N* K- R: z9 Z( s        Buf.ProcTime :=0;
* h) ?+ T& L# C! Z: U, y& o8 i        .MaterialFlow.Connector.connect(Buf,Machine);
next;
0 x% O! N3 E) Y0 }# Q. R. bend;

五五

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

wudi

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