程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
" n: q2 y0 d6 _9 ~' z        MachineName,BufName:string;
        Machine,Buf:object;
+ `+ }  S) X5 R0 |do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
  p8 ^' w! _9 O1 A5 N+ \$ U8 d" Y                        print "Yes";
                when 32 then
' U3 m  i3 u! Q& u, O* q                        print "No";
                else
  o: g4 E! V! g* t                        print "Cancel";
) J5 R' b( ~  O4 i# J                end;
1 F. g- f6 `) y- r7 t* K        EventController.stop;
end;
PartsTable.delete;
* ^, A9 a9 [0 h* U5 Qfor i:=1 to Number_Of_Machine loop
* v, e% C$ w3 N0 z- }        for j:=1 to Number_Of_Machine loop
  v( |6 ]# N  M7 S                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
7 i% R- c6 k5 e' [/ Z                        end;
                else
                        if j=i then
4 k# X1 l: w* H8 q                                D_From_To_Chart[j,i]:=0;
0 P( i2 h$ M% R                        else
* t0 P' s2 l! h/ J                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
+ Z; \; d$ s: ^8 [" u+ w; P                                        EventController.stop;
3 z* X3 z0 U) b/ o; T                                end;
4 q0 t7 n6 o/ `2 A& ?$ {4 q8 I( Q                        end;
                end;
% ^% {" k# k" q% |1 M3 u# P        next;
  H5 t  o$ {# b3 j& ~next;

end;

, v+ `9 e+ Z2 I0 C; ^    Lines :=0;
' W# S! l3 d8 |9 o        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
' e( D% T) g* t                    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");
                        PartsTable[5,Lines]:=Rows;
$ f8 ^0 G$ k/ X4 s4 n                        PartsTable[6,Lines]:=j;
. C- r) W, d0 l  n5 n                end;
. t. S" m! C+ c/ D) `" `+ \        next;
        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;
        Machine.label :=sprint("machine_",Rows);
6 M( I3 M9 `$ ?& t4 [+ Q' Y2 {        Machine.ExitCtrl :=ref(Leave);
# E7 i# K* ]8 D: V. S       
        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]);
& p$ e; M+ g- f4 g3 S                 Buf.Name :=BufName;
8 U; z& t  k- z: b8 D        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
+ `( N6 k4 K1 B; c        .MaterialFlow.Connector.connect(Buf,Machine);
4 a+ Q4 ^5 [9 _1 s2 W) b& F4 ?& l' Pnext;
end;

五五

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

wudi

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