程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
' a* L  _3 _: b4 z3 Fis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
( ~9 T& Q8 X/ K4 jdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
2 N8 {6 t6 M9 }8 H8 R, K/ N0 U                        print "Yes";
& u& ^! r5 |) N6 O" v                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
! `# J1 g! ]0 ^! \9 C" i  x        EventController.stop;
/ Z1 G4 t' L7 @) send;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
; S0 V: v" J2 x0 _3 T( s+ a/ f+ Y                if j<i then
* L) \+ |- l1 J3 s! V% ]                        if D_From_To_Chart[j,i]<=0 then
$ t$ R" O3 ^& K- `- l                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 X; D# H9 Z% @. a, [                        end;
                else
; U3 X( g4 L# Y8 G2 v                        if j=i then
                                D_From_To_Chart[j,i]:=0;
+ }6 I& @2 \' ^/ y0 g: v                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
4 p' a4 z3 ]- M% m! U3 B                                end;
                        end;
                end;
        next;
next;

end;

    Lines :=0;
- s: s) }: j& o' d: h" W        for i:1 to Number_Of_Machine loop
# [9 g0 s: r8 u* Y        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 o1 w% y0 g5 J3 V* {        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
+ a* O8 G4 Y8 H( h6 Q# c* A2 X4 b                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" h; c6 B2 F0 i( z. H                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
# B0 z: R% G" Q1 t                        PartsTable[3,Lines]:=sprint("Parts");
5 V3 O# d7 v( w& \                        PartsTable[5,Lines]:=Rows;
) v% l) M' l, w7 z9 k5 |4 B! x                        PartsTable[6,Lines]:=j;
4 O0 I1 b2 a& J% |  E5 S. b                end;
2 l3 T( L' t" J0 b! K, v% T7 B        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]);
0 E2 F% r- u4 D0 X: n' j' d        Machine.Name :=MachineName;
5 X! r7 ~9 O4 Y; e9 l0 b$ s        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
9 N: }2 L, l$ z% M9 w* J$ H       
" W; Y* p3 I& [! E1 }+ J        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
% @2 U/ n; l/ g9 x8 q* anext;
. [1 u) \2 e, B5 s" rend;

五五

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

wudi

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