程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
1 t# X1 w: D! S, n  G. l( P# J        i,j,Rows,Lines:integer;
! Y$ S: P, {" f# L/ w5 g9 i* i        MachineName,BufName:string;
        Machine,Buf:object;
do
' [/ O$ @. c) Q0 N  x/ ~        if Number_Of_Machine/=D_From_To_Chart.YDim then
' Z0 I" r6 S$ m, N' O$ {# R! X/ x                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
- r  A, j' M% y0 V1 k+ p                        print "Yes";
                when 32 then
                        print "No";
1 `, B9 g% o0 J% [: w: }, n                else
                        print "Cancel";
                end;
        EventController.stop;
! ?) j% z5 o/ c' wend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
4 Z# x; a0 k5 T; B                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ y) G( P$ p6 e2 _                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
% z  }7 }8 v+ e1 k' x0 b4 O                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
( O8 N2 K$ z$ ?4 L                end;
        next;
next;
& I" `  ]1 N- L7 x0 F7 ^( `
end;
3 W& ?6 a, t$ Z# h- w
    Lines :=0;
        for i:1 to Number_Of_Machine loop
# E- c- ?  k  p/ ]        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 t; e6 f4 e: i/ P) a) D        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
7 y2 G; r$ r$ C                    if W_From_To_Chart[j,Rows]>0 then
& G: H) ?# w( }  j% q2 c                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  Z) P$ A9 E  f! p                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
% F: Y  J" {' S                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
; _$ Z3 a3 ~1 c; W                end;
        next;
        MachineName :=sprint("M",Rows);
4 r; H+ C' Q2 h+ i% ^9 \2 W        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;
, N: V) F9 X, e        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
5 a5 a+ `0 j: c0 w) E        BufName :=sprint("BF",Rows);
! o- H  v( g/ W- m5 k; P        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;
' L# ^3 W+ f) s( t4 n! Q5 _        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
) T' q! I: ^) ^/ ]/ @! }, w8 B  A        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
0 r! `" x: D/ s( Q) g, t/ B' C  _. W

五五

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

wudi

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