程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
& V, D5 e7 _0 w2 e$ J        MachineName,BufName:string;
        Machine,Buf:object;
$ U' P. M0 N1 G* jdo
( D# V. b! l/ a. c  q8 r/ i        if Number_Of_Machine/=D_From_To_Chart.YDim then
) O, d& l& V( h4 c+ q                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
1 g) v1 z1 G1 S/ Q0 F                else
                        print "Cancel";
                end;
- ?+ w! |$ ~3 t  [0 O        EventController.stop;
end;
PartsTable.delete;
1 A5 r. Y6 R4 i& l7 q* A8 g1 y* dfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
8 w+ B$ T& m  M; P                        if D_From_To_Chart[j,i]<=0 then
9 }  w' }# u# C- y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
2 E" o4 C% D' Z5 G; T) Y; w                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
* O( F" ^* W/ j! l( g  Z                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
$ m7 J7 B8 Q) z! s' F1 d                        end;
, h; a: Q- j: T; ~$ f                end;
        next;
) i& O  B7 O, d; r- l5 J3 Anext;

/ I/ j* Z' f, {end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
- C" r3 e" F$ N; l        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
! v. _7 j9 d# C; |  p            for j:1 to Number_Of_Machine loop
3 \( g, b; r$ S7 A8 N: T                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
: A+ P- l8 B8 g! [                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
: S: F/ @" m: G' w( Y! V7 ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
8 f. }4 }/ o& _2 i                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
) s+ e! x# D3 B  _$ K8 _' _% ^        MachineName :=sprint("M",Rows);
5 L  A9 l) e! v9 ]7 D" Y  y        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;
        Machine.label :=sprint("machine_",Rows);
3 \9 Y7 ]" X  w- V4 q* g        Machine.ExitCtrl :=ref(Leave);
1 `1 m( T! G7 p7 c+ l       
        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;
) h9 M0 ?) v5 T1 k        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
& U! p% i# w+ Onext;
9 ~; }2 ^! H, f+ Lend;
, B. }2 g) K) A9 n; f

五五

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

wudi

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