程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( ^6 V6 z: f. v- ois
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
7 j- q% Q7 M0 ]; }8 Q7 V        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
: i& v1 J: H, v" E/ A% q3 N                inspect messageBox("Number Wrong...,",50,13)
$ H2 H7 H4 m% F0 z, Q6 P  ]7 e# H" x$ B* [                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
; S+ O3 u' C- Y$ A                        print "Cancel";
+ ~& z- i! ]+ l9 P" r7 [) Q, C                end;
2 a: B2 ]9 a( a. f        EventController.stop;
. f$ b) j9 q* P0 ~$ `* ]. Hend;
& E9 C$ O6 c. n7 U, E, ]PartsTable.delete;
) o9 B9 ?: n, m* L9 b1 efor i:=1 to Number_Of_Machine loop
) l9 {- N, i+ c2 v. ^' {        for j:=1 to Number_Of_Machine loop
                if j<i then
+ A* E2 k( ?, x3 X9 b                        if D_From_To_Chart[j,i]<=0 then
# R9 z7 s; J- ]* h: E) X9 {                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
' G  V! K) `& }                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
3 Z& c9 E. m$ P; B4 K) C  v                        else
4 N- i# }, d' d6 S" h3 E                                if D_From_To_Chart[j,i]<=0 then
% [8 b2 U% ^& U' C                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
2 Z% ~6 r, u3 e                        end;
                end;
        next;
next;

9 j1 V7 `% D7 x; W+ q; R0 D1 u. l7 Dend;
2 r& O3 c6 E, x  Y
+ }2 f8 k$ v. s: p, g    Lines :=0;
; k' \- b8 z% _8 u        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
+ C# l% B% n7 a: F  M8 e            for j:1 to Number_Of_Machine loop
! g% v; j% K' f                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
- u  r  s8 W4 M9 ?$ w5 _# m9 ]                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 q: n: ~$ v+ @7 `* P                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
8 H  {4 I& y1 |% {                        PartsTable[3,Lines]:=sprint("Parts");
) S# M) t- b* [( }5 X                        PartsTable[5,Lines]:=Rows;
1 t6 E7 ], O/ R                        PartsTable[6,Lines]:=j;
6 s7 Y) q+ d( ?: S                end;
        next;
        MachineName :=sprint("M",Rows);
5 a+ d  K9 l: i7 h7 G3 L. {        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;
) U9 n, t7 R5 j& x6 z; t        Machine.ProcTime :=5;
1 \, K" {, b2 r* V, C5 Z# E) O$ y        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
5 F& W) N4 e( H6 U       
' A+ x) K/ X$ P3 ~3 g3 J  V        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;
. A4 \, j2 n( I" x8 b# F4 m        Buf.Capacity :=5000;
" @- s( W1 T8 J, Q% b1 D        Buf.ProcTime :=0;
0 h3 L! V; s) P        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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