Primzahlen Sieb

[harryi]

Ich kriege das mit der Input immer noch nicht hin.

Also mein Ziel ist es bei Spalte 1 die Nummerierung zu haben, Index vom Primzahl und dann rechts in der Spalte 2 dann meine Primzahl.

Delphi-Quellcode:

procedure TForm1.eratosthenes;
var prim:Array[1..100000]of Integer;           //Zahlen von 1 bis 100000
    i,v,nmax:integer;                          //i=Zahl
begin
nmax:=spinedit1.value;
for i:=2 to nmax do
    prim[i]:=1;
    v:=2;
    while v*i<=nmax do
    begin
    prim[i]:=0;
    v:=v+1;
    end;


for i:=1 to nmax do
  if prim[i]=1 then

Bei mir ist wenn prim[i]=1 eine Primzahl , alle die durch das v(Vielfachen) teilbar ist, werden nicht aufgelistet also prim[i]:=0.

Hilfe