Pascal/Turbo Pascal - logaritmo que imprima los números primos comprendidos entre 1 y 1000

Uses CRT;

const N=1000;

var a:ARRAY[1..N] of boolean;

i,j,m : word;

cont  : integer;

begin

  clrscr;

  for i:=1 TO N do A[i]:=TRUE;

    m:=trunc(sqrt(N));

  for i:=2 to m do

   if a[i] then

     for j:=2 to N DIV i do

        a[i*j]:=FALSE;

       for i:=1 to N do

         if a[i] then

           begin

             write(i:4);

             cont:=cont+1;

           end;

   writeln;

   Writeln('Hay ',cont,' n£meros primos entre 1 y ', N);

   readln;

end.

Program Numprimo;

Uses CRT;

Var max, numero, divisor, cont, subtotal, total: Integer;

BEGIN

    ClrScr;

    WriteLn('Cálculo de números primos del 2 hasta un valor dado');

    Write('Teclea valor máximo: ');

    ReadLn(max);

    WriteLn('');

    While numero<=max Do

    Begin

        For divisor:=1 to max Do

        Begin

            If numero Mod divisor = 0 then

            cont:=cont + 1;

        End;

        If cont=2 then

        Begin

            Write(numero,' ');

            subtotal:=(cont div 2);

        End;

        total:=(total+subtotal);

        subtotal:=0;

        cont:=0;

        numero:=numero+1;

        End;

        WriteLn('');

        WriteLn('');

        Write('En total son ', total, ' números primos del 2 al ', max);

        ReadKey;

END.