程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 A3 r2 p8 I6 b$ s: t1 C' Jis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
) G4 i! {6 f, _4 w# A- O5 B7 ?- h. k9 y        Machine,Buf:object;
" ]/ n# F% h) B6 f( _7 J/ a3 h9 K8 \9 Cdo
4 T& k& X& ]- O6 y+ _- [, i        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
9 s; t5 }3 u. o, U                        print "Yes";
                when 32 then
* S# `0 r/ r' u6 ^- i4 H5 p& M: a                        print "No";
                else
- r& H* K! K4 N0 a2 X% h                        print "Cancel";
1 W) e& R& X0 }7 }* p0 n: r                end;
5 D! _* O1 ]2 V) V+ \2 K        EventController.stop;
end;
4 p! k. G+ a9 ^( ^6 c1 LPartsTable.delete;
# U* q1 R: o! @4 Afor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
) b/ E6 @0 ?8 R# [6 `' O                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
( M. G* H+ G6 `- M& L4 \; r2 _% q                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
: C. Y. J8 d, m! b* |                        else
# J! d" w% P( _/ R; p2 C# h7 M                                if D_From_To_Chart[j,i]<=0 then
9 D$ U  \# F" N                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
6 z* r9 M; V* l: B) v) [                        end;
                end;
        next;
! X3 m9 X7 G+ J7 v4 k$ Vnext;
; |  T* O  u' L" I( F" Y( t( |. G
end;

$ d, W* a( B9 h    Lines :=0;
3 N& W" U  Z/ m) u3 F& Z        for i:1 to Number_Of_Machine loop
0 X- V; W+ \' x, d        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
6 D& I; ]! q( P0 T5 A                    if W_From_To_Chart[j,Rows]>0 then
& E' _0 v. h% [9 u) _; h0 s                            Lines :=Lines+1;
; `# u2 ^% h8 B1 E                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; G+ y1 u3 V$ j2 m" u                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
0 K0 ]  H1 b2 z. w( t                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
# M/ X' g  h0 z8 A9 I1 X        MachineName :=sprint("M",Rows);
0 C) O+ g8 E/ n: _9 G. k/ {        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]);
0 ?' [* r1 \! f        Machine.Name :=MachineName;
+ [! |. P0 F# ~! I6 ^        Machine.ProcTime :=5;
8 G6 X6 k  Y4 }9 Z" X  B; d# l        Machine.label :=sprint("machine_",Rows);
! x6 Q  C! B# d$ Y9 [        Machine.ExitCtrl :=ref(Leave);
% {4 ^3 I5 z& U9 l8 I* ]4 k       
& H) p6 |, M* M: R1 V2 n, B        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]);
1 m  @! ?  g/ \                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
3 v) |/ H9 l+ b" l" V% g* z/ fend;
) U, K, p" b0 @  ^0 p

五五

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

wudi

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