Pascal/Turbo Pascal - Problemas con iteración

{ A ver algo así vale}

 program iteracion;

  uses

    crt;

  const

     numeros : array[1..7] of string[5] = (

     '1/0','0/1','3/3','2/6','5/10','4/15','7/21');

  var

    num : integer;

  function numero : integer;

  var

     nn : integer;

  begin

     write('   Entre N§ Del 1 al 7 : ');

     readln(nn);

     if nn > 7 then

     nn := 7;

     numero := nn;

  end;

  procedure nprimerosterminos;

  begin

     for num := 1 to numero do

     write('  ',numeros[num]);

     writeln;

     writeln('   Pulse [Enter] ');

  end;

  procedure nprimerosterminosdenominadorpar;

  var

    erro, tot : integer;

    ff, a, nm : integer;

    cade : string[2];

  begin

      ff := 1;

      tot := numero;

      for num := 1 to 7 do

        for a := 1 to length(numeros[num]) do

        if numeros[num][a] = '/' then

        begin

        cade := copy(numeros[num],a + 1,length(numeros[num]));

        val(cade,nm,erro);

        if erro <> 0 then

        begin

           delete(cade,erro,1);

           val(cade,nm,erro);

        end;

          if nm mod 2 = 0 then

          begin

             write('  ',numeros[num]);

          ff := ff + 1;

          end;

       end;

         writeln;

         writeln('   Fin de Ciclo Pulse [Enter] ');

    end;

  procedure menu;

  var

    termina : boolean;

    tj : char;

  begin

     termina := false;

   repeat

       clrscr;

       writeln('****** Menu Principal *******');

       writeln;

       writeln(' 1 :  N§ primerosterminos');

       writeln(' 2 :  N§ primerosterminos denominador par');

       writeln(' 3 :  Salir');

       writeln;

       writeln('<<<<< Elija Opcion >>>>>');

       tj := readkey;

      if tj in[#49..#51] then

    case tj of

 #49 : begin  clrscr; nprimerosterminos; readln; end;

 #50 : begin  clrscr; nprimerosterminosdenominadorpar; readln; end;

 #51 : termina := true;

    end;

   until termina = true;

  end;

  begin

      menu;

  end.

PROGRAM ITERACIÓN;

   USES CRT;

   VAR

     n:integer;

     i:integer;

     j:integer;

     cont:integer;

     a:integer;

BEGIN

  CLRSCR;

  WRITE('Introduce el n£mero de terminos que quieres ver: ');

  READ(n);

  i:=0;

  a:=1;

  FOR cont:=1 TO n DO

  BEGIN

  WRITE(a,'/',i,'  ');

  if (cont mod 2=0) then

  a:=a+3

  else

  a:=a-1;

  j:=j+1;

  i:=i+j;

  END;

READLN;

READLN;

END.

{Prueba tu programa con esta modificación}

PROGRAM ITERACIoN;

USES CRT;

VAR

n:integer;

i:integer;

j:integer;

cont:integer;

a:integer;

BEGIN

CLRSCR;

WRITE('Introduce el n£mero de terminos que quieres ver: ');

READ(n);

i:=0;

a:=1;

FOR cont:=1 TO n DO

BEGIN

if i mod 2 =  0 then

WRITE(a,'/',i,' ');

if (cont mod 2=0) then

a:=a+3

else

a:=a-1;

j:=j+1;

i:=i+j;

END;

READLN;

READLN;

END.