程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
  [, }) w$ d6 Y" B+ ~* M        MachineName,BufName:string;
2 [$ l1 B2 q) h7 ~( _        Machine,Buf:object;
6 ^: v0 N8 c9 |, ]! b: Ndo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
, f1 U' L2 X; u# }5 F9 K                when 16 then
                        print "Yes";
1 F7 E- g) B) u. L8 g                when 32 then
1 j2 T# a- L0 f% O" b                        print "No";
                else
8 A, I, m4 @( T9 g! ^                        print "Cancel";
                end;
: Z7 x; J- |. Y& a0 c) U        EventController.stop;
end;
, r# {2 b% o: P2 _% wPartsTable.delete;
$ ?6 v+ {+ X5 _for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
) N( i$ ^$ Y, G5 M8 y                if j<i then
( j4 ^/ p. C2 D                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
& ^+ y' }$ E/ g/ {                        if j=i then
8 o4 T7 F( {4 d+ w, V                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
& c+ i4 Z0 v8 T% l, |- G# V+ r" l                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
1 o& t+ Y6 V3 N* N                                end;
                        end;
6 |9 V/ I8 K4 r2 u+ r* r: S' {& c                end;
        next;
% x( X2 \4 W# G  |0 `next;

: ~; V1 y% |. I$ h  s& D' ?end;
0 B+ F7 a6 s- o' f
    Lines :=0;
+ T3 a2 E" I( w6 O# }        for i:1 to Number_Of_Machine loop
1 q! s; X: m1 {. i3 @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
6 l8 n' p3 I$ h' D5 t                            Lines :=Lines+1;
8 j( T' h: t9 B                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
2 {+ h" G, o3 s# c$ T3 N                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
1 N* a# _" f6 P0 E1 t4 R                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
; z/ W' a5 k2 H                end;
        next;
        MachineName :=sprint("M",Rows);
! y3 s* O- R/ S1 b  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;
( J6 j& b0 N% U" {7 L5 _        Machine.ProcTime :=5;
9 x' S$ i. D- Z2 \# D5 v$ q- q. b        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
) Z" _) l* p7 X3 E        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]);
4 p( s" Y4 D% b                 Buf.Name :=BufName;
7 v9 Y; C# ~- Z& M# e7 h) j' C7 `6 _# u        Buf.Capacity :=5000;
2 P: {6 f/ X; q* X; N        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
5 ~- K( b7 N( G) |next;
end;

五五

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

wudi

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