程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 R7 t* B; M$ dis
1 _8 t- |. J7 l8 L( T. d4 s2 F        i,j,Rows,Lines:integer;
/ m# R& C' }9 \/ F/ T        MachineName,BufName:string;
        Machine,Buf:object;
* ~# K5 m: a, z9 Ldo
4 `0 d* c. I) u1 [        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
+ D: L) J/ w. L+ P7 ^2 L                        print "No";
                else
1 V6 J# g0 O9 N7 F                        print "Cancel";
) R: B, V5 a- g9 N1 y! q' {                end;
$ D* |, \' M: [! B9 g  F        EventController.stop;
end;
PartsTable.delete;
+ h1 [+ @# M# H; }8 \7 n" efor i:=1 to Number_Of_Machine loop
/ a  f) [& c, l8 i5 W+ J# N        for j:=1 to Number_Of_Machine loop
/ x8 X! f# }: c+ j                if j<i then
% ]( j& M) j$ {3 _- T                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
  P' }/ {" E' L. x# [. m2 j                else
# J0 [; Z/ `2 F) T+ q. T                        if j=i then
1 a0 z; K6 _; Y" j; f4 y% P                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
8 H0 N, M8 G9 h% Q' ~                                        EventController.stop;
                                end;
                        end;
                end;
; x- i& x  H$ ^& X( B7 |$ M; s" X; D        next;
5 O5 a& c/ H! g; n* gnext;
; T2 K$ `+ Q8 N. f/ T4 W  s
end;

* X6 L! y' c' E  i) I% y    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( l" a# }' [: {        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
1 U# L0 u6 i- w& m                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
/ N( N, ?  q- }/ X$ W# W                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( g6 _; m: p9 N# d2 h5 |                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
6 [& R, G  f* Z) A2 ]                        PartsTable[3,Lines]:=sprint("Parts");
" O7 V" d0 C( H- F) Y                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
% X( x; n# r: C        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]);
3 w" A- P$ d, Q1 s4 q: J        Machine.Name :=MachineName;
% U' r" O6 m4 J0 q$ ^4 A        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) k$ G* ?' |2 y2 |( G7 \0 @: p3 w4 h4 g) q       
+ C; d# y# C" J- B5 m        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]);
) a, \% M/ K" `+ Z0 C                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
5 k9 y8 X' a  d+ _/ X9 v6 ]        Buf.ProcTime :=0;
! o" h9 z. M! P! U" W        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
& q- {: z2 c& @7 ?4 T' K4 v

五五

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

wudi

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