程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
4 j- r6 k9 R5 s$ a  @! qdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
) P. C. ~' E4 ^" W# o; r7 f1 E" B0 D                inspect messageBox("Number Wrong...,",50,13)
  j( c" @5 V9 O                when 16 then
                        print "Yes";
. q, ]$ M0 P" {( Z6 C5 v6 @8 |                when 32 then
                        print "No";
% j1 x9 N$ X+ A4 x& I                else
. R. \- ~+ x# M' ^6 ~                        print "Cancel";
5 A* a/ W! g; k. I6 W                end;
        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
: K9 M0 n- x, O3 t$ ?                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
) W) x+ ^( w- T6 X5 ], z- Q6 R. k                        end;
: O1 ~7 j( \1 t) U- W0 S2 v                else
* f. c* U* M! q' P% R# u                        if j=i then
' X. R! o! w0 C                                D_From_To_Chart[j,i]:=0;
# d6 l$ P5 z6 _& f                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
; r5 w7 M; e: k! U                        end;
                end;
        next;
next;
& U2 a. f6 j  w8 m# I" f2 ~% r
9 Q- \+ K0 p4 bend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
* m' R! O" T+ F0 t        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
' y% G/ F) M" g  }& ~+ }; u. c        MachineSequence[2,i]:=Rows;
) ~$ K& L9 \0 V/ s            for j:1 to Number_Of_Machine loop
, c8 i7 d$ H3 [7 W* T4 w' l5 i6 r: [                    if W_From_To_Chart[j,Rows]>0 then
% ?$ ~; Z' G9 U' b5 R. r                            Lines :=Lines+1;
6 W2 r. e2 V- Q  G- m% V6 ^5 n1 a$ a                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ V1 o$ y. J3 n6 g                        PartsTable[3,Lines]:=sprint("Parts");
! G% \4 k( P+ j                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
$ j1 E! r. n8 n& {0 A8 @% }        MachineName :=sprint("M",Rows);
  v8 U' c" I  E* W' ?) N        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;
8 R4 K4 c" Z# J( B) Z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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]);
% r9 @0 X4 j: J) |                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
7 Z6 `; I2 C  D7 q0 G: J5 }        Buf.ProcTime :=0;
# P- d1 y& x$ q+ F# L7 v        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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