Jogo plantas vs zumbis

Pra desopilar, o jogo que fez muito neguinho não prestar atenção nas aulas, aproveitem que as feria tão chegando.

http://www.4shared.com/file/ib79lR7P/Plants_vs_Zombies__BR_.html

Vídeo aulas Prof. Neri

Uma bela ajuda pra quem ta com dificuldade em algoritmo e ainda não comprou os dvds do Thiago.

DVD 1

parte1

parte2

parte3

parte4

parte5

DVD 2
parte1

parte2

parte3

VETOR DA MORTE

02) FAÇA UM PROGRAMA QUE PREÊNCHA UM VETOR DE 5 POSIÇÕES SENDO QUE

ESTE ACUSE QUANDO FOR DIGITADO UM NUMÉRO REPETIDO.

PROGRAM QUESTAO_02 ;

VAR V : ARRAY [1..6] OF INTEGER;

    A,B,I,C : INTEGER;   

 BEGIN

FOR I := 1 TO 6 DO

   V[I] := 0;

 A := 0; B := 0;

   WHILE B < 6 DO

       BEGIN

         WRITE('DIGITE O NUMERO DA ',B,' POSIÇÃO: ');

         READ(A); WRITELN;

         C := 0; I := 0;

           WHILE I < 6 DO

                BEGIN

                  I := I +1;

                  IF A = V[I] THEN

                    BEGIN

                      WRITELN('ESTE NÚMERO JA FOI DIGITADO');

                      C := 6;

                    END;

                  IF V[I] = 0 THEN

            BEGIN

              V[I] := A;

              B := B +1;

                IF B < 6 THEN

                  BEGIN

                   WRITE('DIGITE O NUMERO DA ',B,' POSIÇÃO: ');

                   READ(A); WRITELN; 

                       I := 0;

                     END;

               END;

             IF C = 6 THEN

               I := C;

           END;

     END;

  FOR I := 1 TO 6 DO

    WRITELN('O NÚMERO DA POSIÇÃO ',I,' É: ',V[I]);

 END.