程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ _0 o9 F, K: f6 w4 Y0 Fis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
$ e+ m  w% e* W        Machine,Buf:object;
7 [' m0 b+ k8 M! ]3 Mdo
6 s. a1 P  D+ ?' J, E5 A        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
9 J( u, t+ {/ N/ H2 Z                        print "Yes";
* |4 u' |9 [9 Z. N9 S$ N: c                when 32 then
+ }2 Z5 F* w0 V- v6 v                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
" |( W" v- y6 SPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
+ h4 o9 }1 h2 j' j& D$ U2 e& W6 K                if j<i then
" m5 Y& g# U7 I& \  K8 D  s( b                        if D_From_To_Chart[j,i]<=0 then
+ X" b) X4 z( r5 r: u. C3 W                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
0 j9 g' L- p. V0 y) l                        end;
                else
: F4 f1 c6 c9 R( N4 W. L; `! X                        if j=i then
                                D_From_To_Chart[j,i]:=0;
/ C& {& H+ l* o4 H                        else
                                if D_From_To_Chart[j,i]<=0 then
9 T1 B; F, e" P0 m6 b  i+ q" O                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
! |) w: m' K2 I; v) a* r( j                end;
        next;
next;
9 E, V5 t; q$ a' ^1 r1 D* l
end;

    Lines :=0;
* ]( d) Y" D7 n        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
  f& Z# z+ e1 Q9 V+ @        MachineSequence[2,i]:=Rows;
4 C% X  A" E3 M            for j:1 to Number_Of_Machine loop
% V. A( [4 y) J7 y4 K. [9 A! K                    if W_From_To_Chart[j,Rows]>0 then
, }( q( k& k* T( N                            Lines :=Lines+1;
9 h( |; h# w. D                        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;
5 _6 Z6 f  U2 y% M+ s- l/ V7 b3 k: }                        PartsTable[6,Lines]:=j;
8 `" W$ {; e/ J9 c                end;
4 l1 U# j+ l" c/ d8 ~        next;
        MachineName :=sprint("M",Rows);
% n2 Z" b# _4 H# G        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]);
) V' I# r- \' p+ T7 C7 e        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
. ]$ e7 ]% w- O9 H) |7 c9 l& b& N# w8 f, K        Machine.ExitCtrl :=ref(Leave);
       
3 R. Y1 i& j. A( k  n1 j        BufName :=sprint("BF",Rows);
0 N3 p) z; P* Q# }+ l, S1 Y9 S        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]);
3 g5 u1 b3 H" L0 e. j                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) I2 c( {, I/ H: F" gnext;
; e! @5 m) T0 F& G# Z- [8 u6 Hend;

五五

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

wudi

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