程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
0 `" K* E9 G* w9 G" B3 Z0 Y  e. y        MachineName,BufName:string;
0 R/ {" _; p" ]* ^* R- ~) }: X* n        Machine,Buf:object;
7 j$ J, k5 \  Fdo
. L0 V, {" E3 l- c# @4 E        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
5 O" p( ?6 o3 e/ W. x1 Q% b; I7 v* ]                when 16 then
0 C% w' m& I/ q7 h% I; T# ]6 ^' V                        print "Yes";
                when 32 then
5 P* J/ n# m. Q2 I; Q8 }                        print "No";
8 Y, H0 Q# b3 y' e, t                else
                        print "Cancel";
                end;
% e5 n* s; L- ?: h: b. s, [: a% K; k        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                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];
- e9 Z# C/ J/ K( {                        end;
1 T0 P' i- q  j; k4 n                else
6 P: l2 u$ X' i. [6 V# ]- l                        if j=i then
, O# B& U* k8 K& y3 O/ @                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
3 K7 x, ^2 J% L" V- F5 f4 c                        end;
1 F$ V% U' @1 L# e( V1 K                end;
. T1 j/ x7 q- q% E8 E; J/ r        next;
' Y0 _/ E) c. Bnext;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
, K& N5 y  @/ C; N        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 \( a$ A+ W* ~) M        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
% k/ {2 O* Y* Y' T" F9 p                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
& k0 [2 p; U- M9 H5 L7 E                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 T- s- R2 S$ \/ [! i# g4 N                        PartsTable[3,Lines]:=sprint("Parts");
$ n  R+ |% ~3 I, V8 g; x; S  U; q                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
3 U6 W) D; c" |        next;
  b3 x3 H6 ?8 R1 d0 j        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]);
4 t5 b4 l0 O: U1 r, ~3 O        Machine.Name :=MachineName;
5 n' c/ u2 s* n* w4 o( M        Machine.ProcTime :=5;
. y/ w: g8 D8 a( F        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
( g& A' Y9 b* n# J& k       
        BufName :=sprint("BF",Rows);
# A2 f8 {' a$ G) f3 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]);
                Buf.Name :=BufName;
; y8 F: r, z/ ]" I' f0 l3 w( x        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
7 u- }0 r# I8 j1 C        .MaterialFlow.Connector.connect(Buf,Machine);
$ E$ x/ U! l9 [* C( H( qnext;
end;
$ F! ]6 O) F4 J3 n2 ]$ ^/ D$ [5 ~' C. S

五五

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

wudi

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