Pascal/Turbo Pascal - criba de eratostenes

Hola!

Tengo este codigo para la criba de Eratostenes:

program Eratosthenes;

const N=1000;

var a:ARRAY[1..N] of boolean;
i,j,m:word;

begin
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 write(i:4);
end.

Este programa genera los números primos comprendidos entre el 1 y el 1000. necesito que el programa genere números primos desde un numero introducido por pantalla y a partir de ahí genere otros 50 números primos. Alguna idea de como modificar el código???

Gracias de antemano.

sisi es facil , tenes que leer de teclado y ese numero te lo guardas , y el array de 1000 que tenes como constante cambiarlo por 50 simplemente.