Sieb des Eratosthenes: Von Pascal nach R-Pascal

[problemstoffe]

Muss in Delphi ein Quellcode für das Sieb des E. entwickeln und das ganze dann in ein R-Pascal umschreiben. Das habe ich jetzt mal auf die Beine gestellt. Stimmt das soweit?

Delphi-Quellcode:

 for i := 2 to 100 do zahl[i] := i;
  p := 2;
  while p <= 100 do
  begin
    v := 2; 
    while v*p <= 100 do
    begin
      zahl[v*p] := 0;
      v := v+1;
    end;
    i := p+1;
    while (i<=100) and (zahl[i] = 0) do i := i + 1;
    p := i;
  end;

Und das ganze in R-Pascal

Delphi-Quellcode:

for i := 2 to 100 do zahl[i] := i;            
  p := 2;
 M1: If not p <= 100 Then Goto M2;
 begin
     v := 2; 
     Goto M1;
   M2: If not v*p <= 100 Then Goto M3;
         begin
            zahl[v*p] := 0;
            Goto M2; 
      M3: v := v+1;
       end;
     i := p+1;
      M4: If not (i<=100) and (zahl[i] = 0) Then Goto M5;
       i := i + 1;
          Goto M4;
      M5: p := i;
 end;

Danke euch im Voraus...