Pascal/Turbo Pascal - Me pueden hacer un programa de numero primos

{Mira esto}

program numeros;

 uses

    crt;

 type

   string20 = string[20];

 var

   can, entro : integer;

   p, prim : integer;

  function esprimo(nu : integer) : string20;

  var

    c, cont : integer;

    noloes : boolean;

  begin

     cont := round(sqrt(nu));

     c := cont;

     noloes := false;

  repeat

  prim := nu mod c;

  if prim = 0 then

  begin

      esprimo := 'No Es Primo';

      noloes := true;

      break;

  end;

  c := c + 1;

  until c = nu;

  if noloes = false then

  esprimo := 'Es Primo';

  end;

  begin

     clrscr;

      writeln('   ***** Estos Numeros Son Primos Del [1 al 1000] ******');

      writeln;

      p := 1;

      can := 0;

      write('   1');

      for entro := 1 to 1000 do

      if esprimo(entro) = 'Es Primo' then

      begin

      write('  ',entro);

      p := p + 1;

      can := can + 1;

      if p > 14 then

      begin

      writeln;

      writeln;

      p := 1;

      end;

      end;

      writeln;

      writeln;

      writeln('   Entre el 1 y el 1000 Tenemos ',can,' Numeros primos');

     readkey;

  end.

Program Numprimo;

Uses CRT;

Var max, numero, divisor, cont: Integer;

BEGIN

   ClrScr;

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

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

   ReadLn(max);

   WriteLn('');

   WriteLn('Los números primos del 1 al ', max, ' son:');

   WriteLn('');

   numero:=1;

   Write(numero, ' ');

   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

         Write(numero,' ');

      cont:=0;

      numero:=numero+1;

   End;

   ReadKey;

END.