Pascal/Turbo Pascal - Ayuda con programa lanza 100 numeros

{Esto servirá}

program numeros;

 uses

    crt;

  var

    num : array[1..100] of integer;

    repes : array[1..50] of integer;

    aux, nn, t, n, cont : integer;

    sal : boolean;

    ten : char;

  begin

     clrscr;

     sal := false;

     n := 1;

     randomize;

   repeat

      cont := random(1001);

      if cont > 0 then

      begin

         num[n] := cont;

         n := n + 1;

         if n > 100 then

         sal := true;

      end;

   until sal = true;

   for n := 1 to 100 do

     for t := 100 downto n + 1 do

     if num[n] > num[t] then

     begin

         aux := num[n];

         num[n] := num[t];

         num[t] := aux;

     end;

     nn := 0;

    for t := 1 to 99 do

    begin

      for n := t + 1 to 100 do

      if num[n] = num[t] then

      begin

         nn := nn + 1;

         repes[nn] := num[t];

         num[n] := 0;

      end;

        if nn > 0 then

        begin

        if repes[nn] > 0 then

        writeln('N§ = ',repes[nn],' Repetido : ',nn);

        nn := 0;

        end;

      end;

   writeln;

   writeln('   Pulsa [Enter]');

   repeat

   ten := readkey;

   until ten = #13;

 end.

{Fíjate en estas lineas del programa y inserta estas tres nuevas.

 clrscr;

     sal := false;

     n := 1;

     randomize;

   repeat

      cont := random(1001);

      if cont > 0 then

      begin

         num[n] := cont;

         n := n + 1;

         if n > 100 then

         sal := true;

      end;

   until sal = true;

 A qui.}

 for t := 1 to n do

   write('  ',num[t]);

   readln;

{Comprobaras que se generas los 100 números no otro valor el echo es que el repeat no

termina si no saca lo 100 números al azar.

Con estas lineas lo veras mejor.}