程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 v4 _' ~! B5 \- [# E) ]! iis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
: D6 j+ u3 D2 Cdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
8 W# l1 J# \; b/ t: ?1 k. F                inspect messageBox("Number Wrong...,",50,13)
% Z& A! E2 Z* e9 r! n                when 16 then
! D. g7 T  K8 s2 w/ }3 }                        print "Yes";
) ]9 Y  E8 Q5 N' V: ~7 t0 b                when 32 then
                        print "No";
                else
5 _; s9 z: y! ]                        print "Cancel";
                end;
        EventController.stop;
1 u* O0 {8 z1 lend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
. I5 j0 V% H4 Q# k2 x2 k- y                        if D_From_To_Chart[j,i]<=0 then
  \1 \+ @+ K. \: m" n5 _4 r" W- G( \                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; I8 j+ L, c+ C                        end;
                else
" q' u2 ]$ ?5 U$ Q# K, Q                        if j=i then
                                D_From_To_Chart[j,i]:=0;
1 S, N/ n% h: E" n: }, k: R) ^                        else
                                if D_From_To_Chart[j,i]<=0 then
6 a) v& ?( N- G7 L" H                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
2 @$ R- u, c7 k8 \2 o6 K0 N                end;
1 L2 Z7 W! d) W, c        next;
0 o& `* Z- r, x( }1 t2 h4 v7 Enext;
  R) P. a# ~/ j) t, v
end;
0 v+ a, P- g: r' l
    Lines :=0;
# i. C  O: }4 _9 k        for i:1 to Number_Of_Machine loop
% k; D# y2 t# `' K. c        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 t  \% M9 i* Q        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
% r$ v% z! v$ c1 S* U7 k                    if W_From_To_Chart[j,Rows]>0 then
7 ^# ^4 D8 p# j* y4 P$ N                            Lines :=Lines+1;
8 t) s* H5 R6 G                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) G( w" W  F7 b, ?3 n                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
+ Z' ~8 h, ~3 P* ]                        PartsTable[3,Lines]:=sprint("Parts");
6 ~8 h4 }6 c3 N                        PartsTable[5,Lines]:=Rows;
3 O2 P! S; }6 E& W- @. b                        PartsTable[6,Lines]:=j;
8 a1 K3 s4 N7 w  g: j3 M                end;
        next;
        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
3 m) X* o% z$ b! k. ?        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
9 b; `6 u" t) d$ V' b" M       
        BufName :=sprint("BF",Rows);
' Q* Y5 g+ y% X8 O7 C        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;
( ?1 E  s: \* ^; c. h# ~        Buf.ProcTime :=0;
2 r6 ^. L: b4 h7 o$ r9 M  q        .MaterialFlow.Connector.connect(Buf,Machine);
3 i4 ]0 k2 g& O: N3 L: C% fnext;
end;
7 e& d! i, H/ Y% ^0 m2 n9 i# \. b

五五

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

wudi

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