程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; j. T: B, }6 j3 [8 ^) R8 T2 Wis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
" [, h, Z. i, `4 {/ ~        Machine,Buf:object;
$ w: Z9 r; ~$ m" x. ddo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
6 Y' E: l% R, Q0 |; S- H3 O                inspect messageBox("Number Wrong...,",50,13)
, T4 |# W* ]; E4 i                when 16 then
                        print "Yes";
                when 32 then
; k; [5 H0 v5 U, z: I$ u' V                        print "No";
                else
7 K, q  h& C& Y; m% h* A" x. u& Q                        print "Cancel";
1 w9 ^( Q7 C% Q" S) z# r* V$ }- A                end;
2 ]5 @1 a' Y0 ]- ]- B6 E" q- [        EventController.stop;
end;
1 c# w3 C& U9 B! @7 b; z9 v: V6 cPartsTable.delete;
for i:=1 to Number_Of_Machine loop
  ~+ Y2 H8 V" ]3 S2 l/ Y( }- H        for j:=1 to Number_Of_Machine loop
- O2 ~' t- f6 ~+ f                if j<i then
4 A) J7 X- j$ [+ j  s3 s" x                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
4 d$ A/ e/ f7 }3 i3 L7 }                        else
+ H. F9 x! B: ]                                if D_From_To_Chart[j,i]<=0 then
2 w. r5 \! h1 I! u. ]                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
2 q" J  w  r2 r* a                                end;
                        end;
                end;
3 l$ z! c' F0 e2 y3 F1 ~        next;
6 p: M- n! k% h7 ~next;

$ y9 z7 P& o( o1 n: M4 b. |& mend;
3 J3 y5 F- S; N
+ n8 s' l; `$ v+ R3 N    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 ]) n& y" m+ H" Q+ A  E8 |! t$ F        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
4 r' r3 g6 e& Z4 H                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
% `" N3 F# a4 B+ f; S5 d- k0 d5 l                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
# a; P- ]5 G# ]; d5 P. B                        PartsTable[5,Lines]:=Rows;
& D% j, d3 d/ u* o# _                        PartsTable[6,Lines]:=j;
2 A$ ?; A8 r0 c& O4 d, t: ]" v1 l* S                end;
. S1 v! U$ p/ f        next;
        MachineName :=sprint("M",Rows);
  K1 V8 {! Y/ ?' x5 v, o        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;
2 S3 s& I- a! G; u+ f) g        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
1 t4 I1 N$ F& [: L/ l' z' C2 d        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]);
( G, B3 E- F3 D- _6 s                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
* N4 l; D+ k- wend;
& |! C, y2 X  p/ X$ c! Q& F. i

五五

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

wudi

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