程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
0 Z* B& \- ^8 @, V5 Z7 f( G; h        MachineName,BufName:string;
( C5 W3 Y4 D3 P1 w2 U. B) s        Machine,Buf:object;
do
0 g$ c0 A- @+ i2 r6 E7 t3 h        if Number_Of_Machine/=D_From_To_Chart.YDim then
' R, \( b. b' m7 x                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
% {* L+ U9 n4 D, x0 X$ U0 h                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
& l/ C: O4 u( {! Z7 q0 e                if j<i then
- Q4 m: Q/ `& ]5 U, F  ?) y- a                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
. H% u* u- ^6 D4 `; g                        end;
- u, X3 E& z6 v. Q9 T                else
, n$ U7 B% F( d: y4 m* x$ O0 ]3 q) ^                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
  e) R- W5 B. J' s+ ^* n0 t) D5 f% u4 o8 `! n                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
' b, P' |8 ^( S' W% k                                end;
! m$ Z/ F8 L% @: n2 k. f                        end;
                end;
        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
0 p. i; Q+ c6 g$ @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
; `/ w# ~' u+ q- i; [8 i" s8 ]            for j:1 to Number_Of_Machine loop
/ C6 A5 F9 e9 {                    if W_From_To_Chart[j,Rows]>0 then
5 F; l" v) Y# U7 Y( ^( h5 |7 R' q1 H                            Lines :=Lines+1;
5 W) D( M7 t6 [3 @/ j3 J! y                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 N0 O3 m! Q3 y3 Q. T# x. q                        PartsTable[3,Lines]:=sprint("Parts");
4 c1 P5 r' O' r1 \7 J                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
- Z& r5 H, ~% o$ K1 q. [        next;
        MachineName :=sprint("M",Rows);
* @7 t8 }: V4 [        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]);
% U" b5 u( O) y# J        Machine.Name :=MachineName;
        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]);
6 f- d: P6 D3 j( r                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
9 t: K5 u2 J2 |. ~2 s        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
6 Y: C8 z& H: G9 eend;
1 v  ]1 t+ P7 b, z$ B5 I: a" \) u) [

五五

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

wudi

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