程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
! m5 l4 E+ j6 ^0 W0 O        i,j,Rows,Lines:integer;
0 L% ~/ X# ?' Z# v% ?        MachineName,BufName:string;
4 l! @9 o  [- E: `1 q        Machine,Buf:object;
/ w0 g: j6 s; u. M6 Vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
, e# {, U% V2 O) i5 _                inspect messageBox("Number Wrong...,",50,13)
' M# R% v  }3 j) \0 @                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
' V6 N2 s( \, V8 G) x                else
                        print "Cancel";
                end;
) I0 n2 V4 k9 K& g* H, `        EventController.stop;
end;
- x- \, W6 a2 S# SPartsTable.delete;
for i:=1 to Number_Of_Machine loop
+ u' u" A: g9 l" v- Z: d$ b        for j:=1 to Number_Of_Machine loop
                if j<i then
' G/ x0 \% a$ H+ l                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
% V' {6 m$ L* P) [, X& {                        end;
                else
8 Y  c- v# Q* W$ I. X                        if j=i then
" N% T: ^' D  |6 n8 t# H+ j                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
5 z: L# M  v/ `9 e. f8 R: L$ y                                        messageBox("distence<=0...,",50,13);
! L2 O# |5 W- B5 \                                        EventController.stop;
! u$ X; [+ r5 @7 y: o                                end;
. y9 T5 T3 D! b  x- z                        end;
3 P: X  D2 a8 x. L. ~                end;
        next;
3 i5 L0 g; T1 k+ snext;
6 Y7 `# v0 P$ k( M) @2 R3 j
8 M$ m1 c! c  j' ^- ?4 V$ Aend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
) ?& U4 F, r4 d' N$ ~        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
) B  l# z% w: H3 G( H            for j:1 to Number_Of_Machine loop
2 h# @1 A. ~5 }! W# E. H' f                    if W_From_To_Chart[j,Rows]>0 then
2 N/ p0 a9 S6 ^& ^: K+ N7 _  w                            Lines :=Lines+1;
& m. j$ S' }% n                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
' o9 f1 R0 z6 {                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
9 G" \( T1 m2 u5 s; s                        PartsTable[6,Lines]:=j;
                end;
; T: I( S% W/ L9 U* d- n* P4 w        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 E2 ]! c# E. F: O        Machine.Name :=MachineName;
! X* R/ V( U0 R2 a+ b# }: `        Machine.ProcTime :=5;
, m6 h1 m0 \2 z        Machine.label :=sprint("machine_",Rows);
3 n: z9 b8 M/ P& |$ a8 l        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
. H2 o  x3 i- O  I) y3 }5 I        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;
! S* m! q; L6 [& m        Buf.Capacity :=5000;
. k% l' A! n5 N% m% I, |* k& q        Buf.ProcTime :=0;
6 w& P" \1 ~7 x" }        .MaterialFlow.Connector.connect(Buf,Machine);
, }1 @1 t3 \( f; ^/ Rnext;
" d3 g, {- X# [end;

五五

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

wudi

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