Sieb des Eratosthenes

[Descole]

Hallo,
Ich versuche, ein Programm zum Berechnen von Primzahlen zu schreiben, und hätte dazu ein Paar Fragen:

Was das Programm können soll: Aus einer Menge an Zahlen von 2 bis n durch dasSieb des Eratosthenes Primzahlen berechnen. N soll dabei manuell von dem Benutzer in einem Editfeld eingegeben werden (der Default ist 200), und die berechneten Primzahlen sollen in einem Memofeld ausgegeben werden.

Dazu habe ich folgenden Code im Internet gefunden:

Delphi-Quellcode:

begin
  // Eingabe

  // Verarbeitung
  for i := 2 to n do zahl[i] := true;
  p := 2;
  while p <= n do
  begin
    // es werden die Vielfachen von p getrichen
    v := 2*p; // v ist das 'Vielfache'
    while v <= n do
    begin
      zahl[v] := false;
      v := v+p;
    end;
    // es wird die nächste nicht gestrichene Zahl gesucht
    p := p+1;
    if p <= n then weiter := true;  // 'weiter' ist ein logischer Schalter
    while weiter do
      if (p<=n) and (zahl[p] = false)
      then
        p := p+1
      else
        weiter := false;
  end;

Das funktioniert insofern, als dass das Programm keine Fehlermeldung angibt und das Programm erfolgreich kompiliert werden kann.
Allerdings hat das Programm so noch keinen Nutzen.

Meine Fragen wären daher:

1. Wie bringe ich es fertig, dass "n" im Sourcecode die Zahl ist, die man im Editfeld eingegeben hat?
Ich habe versucht es unter var zu definieren, hab es aber nicht hingekriegt.
2. Wie kann ich erreichen, dass die berechneten Primzahlen am Ende im Memofeld ausgegeben werden?

Gruß,
Descole