程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; r# F9 y2 _; `is
        i,j,Rows,Lines:integer;
& [+ M+ C& n" _/ C* t        MachineName,BufName:string;
% a( ?3 K- p" o2 x+ ~6 M        Machine,Buf:object;
) W9 F2 P% e" R  K2 N/ F9 w+ {do
" Q* @6 Y- R3 O. V2 r        if Number_Of_Machine/=D_From_To_Chart.YDim then
  Q9 V! Q  m( `' P                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
5 {+ @9 }" |  |3 W                when 32 then
0 m1 T, T+ F0 L1 r% A1 |  j                        print "No";
* j& F, \( d  R7 o9 i' e                else
                        print "Cancel";
  @4 Y# |, U+ ?2 O3 C1 ?                end;
* S! v+ K. a: T+ Z& B# @        EventController.stop;
; O* ~- b, t8 ^end;
PartsTable.delete;
$ l9 ~. u: P9 zfor i:=1 to Number_Of_Machine loop
; H" c7 k+ S' r& O0 J% F# A        for j:=1 to Number_Of_Machine loop
                if j<i then
/ @, ~/ c6 @: m                        if D_From_To_Chart[j,i]<=0 then
* x' E$ c3 ?5 I& y! S1 s                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
0 v, ^: P6 V: A( E                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
7 D3 z6 q, T5 p: N/ v" E# s                                        messageBox("distence<=0...,",50,13);
, ?0 q% C: Y1 l4 h% v0 R* e' w5 d                                        EventController.stop;
9 g# R. z$ ^# l' @                                end;
                        end;
* w' }  k) T  H( ?+ R, d* s# H                end;
. l) G8 u  R- I/ q8 {/ Z  C        next;
. K; g9 m% N8 I% y5 R5 A& J0 L* F8 unext;

. }' S5 f1 l" Dend;
2 C' d" \, K4 C$ g8 Y; ]5 `/ `* z
* u9 Y; Z$ q9 O% p7 }    Lines :=0;
) n# R: f: g  G* `2 I* N" Y" V) }        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
- W! u5 R* s3 n$ K0 i7 p                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
1 j$ ]9 k9 {$ d' V                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: y( b0 \1 t% i  v4 v                        PartsTable[3,Lines]:=sprint("Parts");
) ]( ~) X$ a+ `  `/ H- x3 z  ~                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
& U; q4 m2 t3 _! c        next;
1 [3 [' e. b+ X. ^9 W5 H9 a        MachineName :=sprint("M",Rows);
% h- x6 i% z) h6 r0 ^* ^        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;
( {# E1 J7 [' j# G4 W( G$ g3 Y        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
0 R  W7 {" k: P- q$ l: W" y; U3 ^6 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]);
                Buf.Name :=BufName;
( F! f& f7 k8 t        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
, A% O- p; M$ z, i/ t9 inext;
/ e4 r2 h1 g1 n# R- M5 {7 k+ u( `# Pend;
+ N' `9 I- E- Q* w5 T, l. ^( j! y' _) O

五五

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

wudi

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