程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; O3 m0 L% R1 q. S; w  Y4 Y8 w$ Eis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
5 X% K9 U- W; R3 o# l. v        Machine,Buf:object;
do
' G1 j3 b7 g0 F+ |7 R        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
6 Y( O2 d$ g' p, ?& {9 {+ j1 H                        print "No";
$ G. V8 K$ m0 ^7 q                else
                        print "Cancel";
4 k6 ~- F8 I) L: b% x! \* `7 [6 ?. y                end;
        EventController.stop;
" g/ k' y1 Q& k8 \1 f& Kend;
PartsTable.delete;
% u( @6 E& d# M4 M: j4 L; F7 wfor i:=1 to Number_Of_Machine loop
0 d+ V1 v7 ~1 E" K        for j:=1 to Number_Of_Machine loop
( }; G; H( m+ P2 R$ f: c                if j<i then
/ F4 ^6 r( c/ g# H9 G1 R                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
$ }' O. k, c& p! `# R, ]$ M                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
" w* g7 R7 y  R                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
2 u9 e# d3 c* g7 S                                        EventController.stop;
                                end;
                        end;
                end;
* o1 [+ O8 q* ?        next;
next;

end;

1 R8 T+ L! c3 G! `( D! p    Lines :=0;
! M0 G0 O5 y( @5 `9 o/ ]7 T' S8 R        for i:1 to Number_Of_Machine loop
% P% U) X6 g1 M, k" U        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
                            Lines :=Lines+1;
% u- z1 ^6 A" |; G* \0 m/ w* p9 I                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" d! P7 T8 l6 @8 u$ d' F, g                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
  j6 ^  }7 ]+ p  P. X                        PartsTable[3,Lines]:=sprint("Parts");
0 @5 W  b6 [1 [3 m4 m1 y. M                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
$ @" ?# H% N0 J' u        next;
        MachineName :=sprint("M",Rows);
        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]);
/ `4 e) k" S4 N+ A        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
; N# J4 _( C0 g/ G" U0 K, [* m9 _# y        Machine.ExitCtrl :=ref(Leave);
       
8 C, U! e& W! b; x+ J0 t1 h9 P        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]);
                Buf.Name :=BufName;
3 L$ u5 [) v1 T2 J# n$ [7 U4 x; @/ B        Buf.Capacity :=5000;
2 J& H0 h+ A* M0 |+ s2 O+ n" i$ ?  s        Buf.ProcTime :=0;
. a7 g# r2 ~- w- v' r* q! j        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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