程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; f0 B9 Q1 |$ j3 A- I& v# Tis
; A" }( `9 {; z* F1 Z2 W        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
/ u# R  c* @8 _) k) v3 h/ \! Fdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
* F& ]- H" a0 g* D& u& [3 V                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
4 I% H2 R/ e$ Q& B* T                when 32 then
" E, ?7 _, K- K4 J0 J                        print "No";
) k3 g* o/ u9 h1 N( A) y; ~* Z9 ?                else
                        print "Cancel";
                end;
, @3 K6 `* r5 B0 H; Q1 v        EventController.stop;
2 a5 h3 A; |* Iend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
. x7 t/ `5 a+ L        for j:=1 to Number_Of_Machine loop
: ~3 A: A# i- ~( Z3 ~2 A5 N, I                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
5 U- @7 n5 |, J0 S9 ^5 N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
2 S' m' x: ?2 v# m$ z+ g                else
5 n' b1 |7 R. i* |1 k7 _                        if j=i then
+ F" a/ ~: @4 u) ?) U# ~8 U                                D_From_To_Chart[j,i]:=0;
) i' X0 B7 ^' ~" N                        else
                                if D_From_To_Chart[j,i]<=0 then
3 S4 D: b6 ^1 k8 [3 d0 S                                        messageBox("distence<=0...,",50,13);
' N3 F0 ^5 N/ E. W) \                                        EventController.stop;
                                end;
                        end;
& w% I: K3 S7 u& R+ z- H                end;
        next;
8 \( {  d, X# Wnext;

! l6 w* G; j& L" n0 pend;

! B' o5 [1 m3 s& n& [( f' ~9 @    Lines :=0;
        for i:1 to Number_Of_Machine loop
4 e: O( p) P3 q; f8 q        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;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 r- y, }% u, j                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
3 M% s* G* s) _/ R) w! I' S                        PartsTable[6,Lines]:=j;
                end;
( k6 @) S+ Q9 p5 g        next;
+ z: M/ Z) N' t2 @5 f, G8 I/ f        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
* j: z2 v# _" c        BufName :=sprint("BF",Rows);
- r( @- E0 {0 J# @        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]);
5 r) j* E  u, X" W$ z3 R6 P                 Buf.Name :=BufName;
$ x0 x& r  R% D5 P& ^* a5 ?9 m        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
! ?- b, M4 T* t" ^# X! mnext;
end;

五五

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

wudi

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