Primzahlen ausrechnen mal anders...

[Teekeks]

Hi!
Ich bin gerade dabei eine Methode zu entwickeln, wie man die Primzahlen von 1 bis 1000000 ausrechnet.
Ich kenne das Sieb des Eratosthenes kenn ich schon, aber ich wollte mal was anderes ausprobieren.
Mein bisheriger Code rechnet wie verrückt aber spuckt nichts aus... woran liegt das?

Delphi-Quellcode:

const N=1000000;
var k,zz,z:longint;
    a:array[1..N] of longint;
    prim:boolean;
    
procedure ifprim(zahl:longint);
begin
    for k:=1 to z do
    begin
      if not zahl=k then
        if zahl mod a[k]=0 then
          prim:=false else
          begin
            prim:=true;
            z:=z+1;
            a[z]:=zahl;
            break;
//            write(a[z]:8);
//            z:=z+1;
          end;
    end;
    if  prim then
    for k:=a[z] to zahl do
    begin
      if not zahl=k then
        if zahl mod k=0 then
           prim:=false else
          begin
            prim:=true;
            a[z]:=zahl;
            write(a[z]:8);
            break;
 //           z:=z+1;
          end;
    end;
    if prim then
    begin
//      write(a[z]:8);
      z:=zahl;
    end;
end;

begin
  a[1]:=2; a[2]:=3;
  z:=2;
  prim:=true;
  writeln('Begin?');
  readln;
  write(a[1]:8,a[2]:8);
  for zz:=3 to N do
  begin
    ifprim(zz);
  end;
end.

ich bin echt am verzweifeln...

gruß Teekeks

[edit=Luckie]Rechtschreibfehler im Titel korrigiert. Primzahl schreibt man ohne "ie". Mfg, Luckie[/edit]
[ich auch edit] Ich hab die anderen korrigiert... ^^[/edit]