程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
8 X% Q; N1 c% W        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
7 C2 l( U# u1 r7 t2 ^do
: m  ^: Y4 Y3 ^/ G        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
7 P, F* y' I: e- K5 n) @                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
! _' m6 _9 w  o* v                else
  o9 P* r, j$ r                        print "Cancel";
) S0 n' J2 e5 w" T, j# y% p6 g                end;
        EventController.stop;
& I3 Q" i% w1 N" t  q9 Bend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
& W4 z# M$ n) r6 R6 k        for j:=1 to Number_Of_Machine loop
3 K2 b. J) j7 w1 H9 x# n                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
1 ~1 e$ n. Q% G8 `+ a3 q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
" {9 E4 c& r2 Y3 M$ A# W5 T, ]                        if j=i then
                                D_From_To_Chart[j,i]:=0;
& u! Z$ Y, _" H! Y. W( H                        else
5 X9 `" S; s# L                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
  Q5 A: h7 \/ [  ]6 m8 N* r                end;
        next;
next;
# P5 a7 Y# F# \
3 q0 s$ I& x3 `4 N7 J# Pend;

    Lines :=0;
8 `8 w. |5 C1 ]# `4 i        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
6 q% p. Q+ F# x+ U+ e. M; Y            for j:1 to Number_Of_Machine loop
2 W0 S  y4 `0 |                    if W_From_To_Chart[j,Rows]>0 then
+ H3 g  t& _' {4 }5 o                            Lines :=Lines+1;
6 }4 A) x( [0 f0 ]$ M! {0 r                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
6 K) ?& i* W2 z$ k8 T* J8 Q) l                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
3 b! |, d1 W1 T) p2 x                        PartsTable[3,Lines]:=sprint("Parts");
. w% I( a5 V2 F3 a5 ~7 p                        PartsTable[5,Lines]:=Rows;
  c) r7 r" \, ~3 U$ y                        PartsTable[6,Lines]:=j;
2 g$ f  }# G& S                end;
5 d) l+ ^# F! V+ o$ J- F        next;
        MachineName :=sprint("M",Rows);
* W+ M9 z) S' Y8 H) g- z$ 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]);
4 H+ _' r/ I. v        Machine.Name :=MachineName;
# }! `+ p) p; t  }% s        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
. U# \  N# Z4 O& ]4 D        Machine.ExitCtrl :=ref(Leave);
       
        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
! T5 L  F3 F) a5 _, \3 A' C% h) Q8 }        .MaterialFlow.Connector.connect(Buf,Machine);
next;
9 c5 _: q3 Q$ Aend;

五五

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

wudi

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