Elecciones en Venezuela 7O - Pascal

PROGRAM ELECCIONES;
USES
 wincrt;
VAR
  C,A,E,R,OP,RE,ZZ,M,PP:INTEGER;
                      K:CHAR;
                    BAN:BOOLEAN;
                   RESP:CHAR;
BEGIN
    CLRSCR;
    BAN:=TRUE;
    WHILE BAN DO
     BEGIN
      C:=0;E:=0;A:=0;R:=0;
      REPEAT




      GOTOXY (29,2); WRITE ('LISTA DE CANDIDATOS');
      GOTOXY (4,4);  WRITE ('1.HUGO CHAVEZ FRIAS');
      GOTOXY (4,5);  WRITE ('2.CAPRILES RADONSKI');
      GOTOXY (4,6);  WRITE ('3.VOTO NULO');
      GOTOXY (50,7); WRITE('VOTO    ');
      READLN (OP);
      IF OP=1 THEN
          BEGIN
            C:=C+1;
          END;
      IF OP=2 THEN
        BEGIN
            A:=A+1;
          END;
      IF OP=3 THEN
        BEGIN
            E:=E+1
        END;
    R:=C+A+E;
    UNTIL R=11;
    CLRSCR;
    GOTOXY (25,09);  WRITE ('RESULTADO DE LAS ELECCIONES');
    GOTOXY (6,11);   WRITE ('HUGO CHAVEZ:',C);
    GOTOXY (6,12);   WRITE ('CAPRILES RADONSKI:',A);
    GOTOXY (6,13);   WRITE ('VOTO NULO:',E);
    IF (C>A) AND (C>E) THEN
     BEGIN


      GOTOXY (23,19);  WRITE ('EL GANADOR ES HUGO CHAVEZ FRIAS');
     END;
    IF (A>C) AND (A>E) THEN
      BEGIN


       GOTOXY (23,19);  WRITE ('CAPRILES RADONSKI')
      END;
    IF (E>A) AND (E>C) THEN
      BEGIN


        GOTOXY (23,19);  WRITE ('VOTO NULO');
       END;
    IF (C=A) THEN
      BEGIN
        CLRSCR;
        ZZ:=0;
        REPEAT
        GOTOXY (25,09);  WRITE ('REPETIR ELECCIONES');
        GOTOXY (6,11);   WRITE ('CANDIDATOS:');
        GOTOXY (6,12);   WRITE ('1.HUGO CHAVEZ');
        GOTOXY (6,13);   WRITE ('2.CAPRILES RADONSKI');
        GOTOXY (50,15);  WRITE ('VOTO     ');
        READLN (RE);
        CASE RE OF
         1:BEGIN
            C:=0;
            C:=C+1;
           END;
         2:BEGIN
            A:=0;
            A:=A+1;
           END;
       END;
    ZZ:=C+A;
    UNTIL ZZ=11;
    CLRSCR;
    GOTOXY (25,09);  WRITE ('RESULTADO DE LAS ELECCIONES');
    GOTOXY (6,11);   WRITE ('HUGO CHAVEZ:',C);
    GOTOXY (6,12);   WRITE ('CAPRILES RADONSKI:',A);


    IF  C>A THEN
      BEGIN


         GOTOXY (23,19); WRITE ('EL GANADOR ES CHAVEZ');
      END
    ELSE
      BEGIN


         GOTOXY (23,19);  WRITE ('EL GANADOR ES RADONSKI');
      END;
    IF C=E THEN
      BEGIN
         CLRSCR;
         PP:=0; C:=0; E:=0;
         REPEAT


         GOTOXY (25,09);  WRITE ('REPETIR ELECCIONES');
         GOTOXY (06,11);  WRITE ('CANDIDATOS:');
         GOTOXY (06,12);  WRITE ('1.HUGO CHAVEZ');
         GOTOXY (06,13);  WRITE ('2.VOTO NULO');
         GOTOXY (50,15);  WRITE ('VOTO   ');
         READLN (M);
         CASE M OF
           1:BEGIN
               C:=C+1;
             END;
           2:BEGIN
               E:=E+1;
             END;
          END;
    PP:=C+E;
    UNTIL PP=11;
    CLRSCR;


    GOTOXY (25,09);  WRITE ('RESULTADO DE LAS ELECCIONES');
    GOTOXY (6,11);   WRITE ('HUGO CHAVEZ:',C);
    GOTOXY (6,13);   WRITE ('VOTO NULO:',E);
    IF C>E THEN
      BEGIN


        GOTOXY (23,19);  WRITE ('EL GANADOR ES HUGO CHAVEZ');
      END;
    IF E>C THEN
      BEGIN


        GOTOXY (23,19);  WRITE ('VOTO NULO');
      END;
    END;
    IF E=A THEN
      BEGIN
        CLRSCR;
        PP:=0; A:=0; E:=0;
        REPEAT
        GOTOXY (25,09);  WRITE ('REPETIR ELECCIONES');
        GOTOXY (06,11);  WRITE ('CANDIDATOS:');
        GOTOXY (06,12);  WRITE ('1.CAPRILES RADONSKI');
        GOTOXY (06,13);  WRITE ('2.VOTO NULO');
        GOTOXY (50,15);  WRITE ('VOTO   ');
        READLN (M);
         CASE M OF
           1:BEGIN
               A:=A+1;
             END;
           2:BEGIN
               E:=E+1;
             END;
          END;
    PP:=A+E;
    UNTIL PP=11;
    CLRSCR;
    GOTOXY (25,09);  WRITE ('RESULTADO DE LAS ELECCIONES');
    GOTOXY (6,11);   WRITE ('CAPRILES RADONSKI:',C);
    GOTOXY (6,12);   WRITE ('VOTO NULO:',A);
    END;
    IF (C=A) AND (A=E) THEN
       BEGIN
         CLRSCR;
         REPEAT
         REPEAT
         CLRSCR;
         GOTOXY (23,4);  WRITE ('HAY EMPATE');
         C:=0;E:=0;A:=0;R:=0;
         GOTOXY (15,2); WRITE ('LISTA DE CANDIDATOS');
         GOTOXY (4,4);  WRITE ('1.HUGO CHAVEZ FRIAS');
         GOTOXY (4,5);  WRITE ('2.CAPRILES RADONSKI');
         GOTOXY (4,6);  WRITE ('3.VOTO NULO');
         GOTOXY(12,12); WRITE('VOTO    ');
         READLN (OP);
         IF OP=1 THEN
           BEGIN
             C:=C+1;
           END;
        IF OP=2 THEN
           BEGIN
             A:=A+1;
           END;
        IF OP=3 THEN
           BEGIN
             E:=E+1;
           END;


        CLRSCR;
        R:=C+A+E;
        UNTIL R=11;
        GOTOXY (25,09);  WRITE ('RESULTADO DE LAS ELECCIONES');
        GOTOXY (06,11);  WRITE ('HUGO CHAVEZ:',C);
        GOTOXY (06,12);  WRITE ('CAPRILES RADONSKI:',A);
        GOTOXY (06,13);  WRITE ('VOTO NULO:',E);
        IF (C>A) AND (C>E) THEN
           BEGIN


              GOTOXY (23,19);  WRITE ('EL GANADOR ES HUGO CHAVEZ FRIAS');
           END;
        IF (A>C) AND (A>E) THEN
           BEGIN


              GOTOXY (23,19);  WRITE ('EL GANADOR ES CAPRILES RADONSKI')
           END;
        IF (E>A) AND (E>C) THEN
           BEGIN


               GOTOXY (23,19);  WRITE ('VOTO NULO');
           END;
        UNTIL (C<>A) AND (A<>E);
    WRITE ('DESEA REPETIR LA OPERACION, S/N');
    READLN (RESP);
    IF RESP='N' THEN
       BEGIN
         BAN:=FALSE;
     END;
   END;
  END;
 END;
END.