程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
& a1 U( ?8 ]! P' G) u        MachineName,BufName:string;
        Machine,Buf:object;
1 F1 l% I( L$ s( l+ L% `do
1 k! U  {, O( X2 a        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# _; w; o7 }4 W' }) p                        print "Yes";
                when 32 then
                        print "No";
                else
7 k0 N  |$ t# K! }* R+ a6 Z                        print "Cancel";
                end;
/ u& D" E# q3 @" [& i0 ?, d- m2 F/ e        EventController.stop;
' O0 N7 e6 h$ R+ s* w; A0 iend;
5 ], [/ Z  v$ d+ t! C0 \4 I2 g, nPartsTable.delete;
for i:=1 to Number_Of_Machine loop
9 V* ]$ V) Z- b+ a2 M3 T4 l5 C5 y" W8 I  {        for j:=1 to Number_Of_Machine loop
                if j<i then
$ J  J2 C0 o0 W+ X$ W                        if D_From_To_Chart[j,i]<=0 then
0 w6 n7 S2 o" o) z- v( t5 g: F' v, I                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
( M7 t! ?/ d' u                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
- f% L2 Y- E  g7 C* r4 c                        else
) [9 _% s- Y' W+ I' P% p% z* \                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
  ?7 g5 t/ p3 s- P; J, v3 T                                        EventController.stop;
                                end;
0 N$ h, c' d5 }1 Q) b0 r                        end;
                end;
        next;
: `3 c! H' Q- y6 t+ Z3 m" Anext;
9 N$ f; R9 z8 |9 R" ^$ M
" L, g0 h% w% z8 k; x! cend;
7 L) R) Z9 B: k5 L. ]
    Lines :=0;
8 h/ P8 |0 A* }; j* R        for i:1 to Number_Of_Machine loop
( R1 E9 m# R+ k: U        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
+ q( f1 i* n. O1 N$ X( P& v                    if W_From_To_Chart[j,Rows]>0 then
- `$ s4 f* s9 K6 i! ]                            Lines :=Lines+1;
$ `* c' n* k. G  p  l3 ^                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 _% M% c- ?* z& e* h                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
% _/ n$ D) Z& L% d- C" G                end;
- o5 ^4 ]7 Z  Q4 b! d        next;
1 o* u& W! p4 e# m+ F        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]);
  i6 _3 R1 g/ E' d. K$ ?        Machine.Name :=MachineName;
' K9 w1 N+ U9 g9 P6 @( X        Machine.ProcTime :=5;
+ C) L. N, Z# L( k        Machine.label :=sprint("machine_",Rows);
$ ~: N, P( l4 S. Y- }        Machine.ExitCtrl :=ref(Leave);
; }# d. P, r: N1 u       
* O* A- c- G% X: a+ Q1 @        BufName :=sprint("BF",Rows);
# d  x- N8 {0 m0 o6 X( x4 f" |* g        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;
+ |9 l/ [; B4 S+ e        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) ]$ O9 w9 O# X, S4 q5 z( qnext;
" E+ g) o/ J. S( [4 send;
/ T+ s+ A1 f; N% u- q

五五

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

wudi

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