程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
* i: h8 C, s* d" G5 P$ u4 I* Dis
: C- p: Z% [; r$ x# E$ |        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
1 b' H* g7 H6 d0 @        Machine,Buf:object;
) G6 ~- h& S) O/ Z2 Jdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
, F5 h9 q" Z5 v: Q                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
6 c) d; [2 r7 R  o                else
0 L5 R) `% k% g( M                        print "Cancel";
9 |6 ?8 K. G( E% B, Q                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
4 K( Z; p1 ~5 v* U$ Y$ a                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
; y0 l3 M4 n6 O/ o3 v4 y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
# W0 S. R! `; _" T                        end;
                else
! K' y' x' N6 c- T1 F                        if j=i then
                                D_From_To_Chart[j,i]:=0;
: U9 i; G( E" m. o) b                        else
                                if D_From_To_Chart[j,i]<=0 then
- n& p$ Z0 t/ }( q' a                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
$ F1 g7 A4 `' ^5 Z        next;
next;
$ D' L2 l) i! K. }% R( _& q
end;
0 X9 G2 d: L5 Y8 A- {: ?8 ^
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
3 s  \, A6 d4 f8 r                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
$ X9 K+ h7 ?0 Y) |                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
  U* B' @7 H" G/ u! l                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
+ W  E" A" e5 C8 W                        PartsTable[6,Lines]:=j;
                end;
        next;
* q* Y3 d! ^, _* |% M- ?        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;
  J1 L; Q  T$ W0 L. I0 v5 @* w7 U        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
1 \5 z0 P9 O$ T* W. H# J1 R! Q4 V        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]);
$ g, E# ~8 N' V2 p( M6 M4 N, Z: C                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
+ n) ?/ K8 P3 I# U/ Q# S. k) N        Buf.ProcTime :=0;
* p# R1 K2 n/ W3 T' c( x        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
8 J2 f0 _& ]: I4 `- F" c+ m

五五

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

wudi

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