程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
* w( X- p: ], f. s; N) R: ris
% d8 O. n6 N% ^0 J! u7 n        i,j,Rows,Lines:integer;
4 l" T; U9 i7 [# [4 t5 t3 z4 g: ?5 z8 s        MachineName,BufName:string;
& r7 P: S2 j) \        Machine,Buf:object;
7 k2 ~/ i0 v5 w0 [# c+ E7 `" Hdo
% j$ ^4 K! w. [1 E  P# K8 \        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 }5 r) y- ~  G) T. H" A' y                inspect messageBox("Number Wrong...,",50,13)
# a& \7 G. }: B6 s- z, X4 b  B- w" u                when 16 then
                        print "Yes";
( e9 q7 Y/ J, E+ I2 X) U                when 32 then
                        print "No";
                else
, D7 B2 ~2 m7 I3 G" C                        print "Cancel";
                end;
8 O/ U9 K% x# T. X% i0 i; S        EventController.stop;
end;
7 J5 s! E- g" hPartsTable.delete;
9 a, p0 I1 }' c9 Efor i:=1 to Number_Of_Machine loop
' I/ x* Z! Z! g' N/ J# S* _" [# Q        for j:=1 to Number_Of_Machine loop
( R1 y+ x7 u8 h. h5 L7 O+ @                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];
                        end;
1 i" v8 O- n5 |  {6 ^7 n6 \                else
0 d. e2 W, ]- R" O# Z; y                        if j=i then
                                D_From_To_Chart[j,i]:=0;
& W) ?+ n) \1 ~* M% ~" B. c                        else
" d, p# d' o/ y9 u6 t                                if D_From_To_Chart[j,i]<=0 then
5 o# I) l3 d1 ^9 E1 K  n                                        messageBox("distence<=0...,",50,13);
6 K" ^6 L0 s) E3 i9 T% h; Q$ Q                                        EventController.stop;
                                end;
                        end;
                end;
7 a  O3 K* F1 w$ [        next;
next;

' U# a5 ]2 G" Wend;

    Lines :=0;
8 B# C4 ?+ [6 D, W/ b1 p        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% X5 L, t$ l8 A        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
, Q9 z6 P) H8 Q2 E                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
: m. j' I- u  w8 ?; b                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' v( j6 a5 J& z& r: L                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
0 S* \1 P+ b; s                        PartsTable[6,Lines]:=j;
                end;
6 u. C  k2 I/ ~! P4 R8 ~" |        next;
5 n8 z0 ]& r/ G6 r" B% W        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]);
) k6 M6 j) i6 U9 j( w        Machine.Name :=MachineName;
" ?$ I% X" [; y9 C' H5 P        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
0 r& v/ q8 E0 N) w, g1 X  u, x        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;
8 ^9 z3 j% ]# [3 g' U( k        Buf.Capacity :=5000;
' H; S0 p9 Q' \6 z0 E+ n8 x        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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