程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( d9 A# E1 c; [+ q. P. f2 o& ?! }is
: L: G) @! F, p/ `        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
  n$ d8 Z6 v5 g7 \' G        Machine,Buf:object;
8 x3 E5 K' v! [0 hdo
9 K  o0 S5 }/ ^        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
" Z  b" Y7 N9 @6 `/ g* _                        print "Yes";
+ k7 W' }: n" T2 t1 q                when 32 then
                        print "No";
                else
0 v$ a7 A" L8 I: O: i1 q+ ]2 J                        print "Cancel";
                end;
# I5 h7 @7 K  h1 v' m        EventController.stop;
end;
  M9 j* B# v  E8 W9 Q' C) D2 }PartsTable.delete;
+ a" s! j+ u. f- gfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
9 ?% x3 d) h9 _- i; }& z3 e$ T                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
  P! ~( o4 Y+ ?                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
- j! E7 R; M9 q! w                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
5 ~, B" \0 Z, Q1 W1 `' O                                        EventController.stop;
/ c, D9 I0 _& I9 H$ J3 d                                end;
7 o+ d0 L* P( n& p                        end;
                end;
3 u8 t3 c- W8 O, {        next;
+ {5 b+ S, _- A9 vnext;

end;
: M4 L3 ~: |- ]* Q
) f" G8 O5 e/ f! r* l9 r    Lines :=0;
        for i:1 to Number_Of_Machine loop
1 j; |4 G4 V1 y7 d8 S+ V6 f6 `- o2 P        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. d: d% k8 O- |. g- g5 L* X        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
* I6 d8 U4 E0 \                    if W_From_To_Chart[j,Rows]>0 then
$ d' L& g# w8 T$ m0 x* v% V2 l/ {5 j                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
+ p4 Z' E6 O, u) H                        PartsTable[6,Lines]:=j;
3 ^& n/ A, q; L; o                end;
        next;
& v+ C0 X* ^- `1 [        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]);
" g& R# \% M3 k8 W2 o7 F: v! h        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
) J9 p/ l& U; q  V4 J  a        BufName :=sprint("BF",Rows);
5 M" m" H" c5 W$ T3 E        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;
        Buf.Capacity :=5000;
: M7 L0 W7 U# r' E3 t5 ^        Buf.ProcTime :=0;
% q* X9 C% d7 V+ q* F        .MaterialFlow.Connector.connect(Buf,Machine);
4 `* }$ m9 D; |. W7 Y6 inext;
end;

五五

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

wudi

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