直接模拟...........

大家看看我的程序对不对啊！
TYPE arr = ARRAY[2..30] OF INTEGER;
VAR
   r: arr; n: INTEGER;
FUNCTION first_p(code: INTEGER): INTEGER;
VAR
   i, k: INTEGER;
BEGIN
    k := 0;
    FOR i:=code + 1 TO n DO BEGIN
        IF r[i] = 0 THEN BEGIN k := i; BREAK; END;
    END;
    first_p := k;
END;
VAR
   i, j, t, fs: INTEGER; tm, rr: arr;
BEGIN
    READLN(n);
    FOR i:=2 TO n DO READ(tm[i]);
    READLN(t);
    FOR i:=1 TO t DO BEGIN
        fs := first_p(1);
        FOR j:=2 TO n DO rr[j] := 0;
        IF fs > 0 THEN BEGIN r[fs] := r[fs] + 1; rr[fs] := 1; END;
        FOR j:=2 TO n DO BEGIN
            IF (r[j] > 0) AND (rr[j] = 0) THEN r[j] := r[j] + 1;
        END;
        FOR j:=2 TO n DO BEGIN
            IF r[j] > tm[j] THEN BEGIN
               fs := first_p(j); r[j] := 0;
               IF fs > 0 THEN r[fs] := r[fs] + 1;
            END;
        END;
    END;
    FOR i:=2 TO n DO BEGIN
        IF r[i] > 0 THEN WRITE('1 ') ELSE WRITE('0 ');
    END;
END.