Sieve of Eratosthenes: Difference between revisions

Content deleted Content added

Inline

@@ Line 8,256: / Line 8,256: @@
   I: DWord;
 begin
-  for I := 0 to aList.Size - 2 do
+  if aList.Size <> 0 then begin
-    Write(aList[I], ', ');
+    if aList.Size > 1 then
-  WriteLn(aList[aList.Size - 1]);
+      for I := 0 to aList.Size - 2 do
+        Write(aList[I], ', ');
+    WriteLn(aList[aList.Size - 1]);
+  end;
   aList.Free;
 end;
@@ Line 8,397: / Line 8,400: @@
   for I := 0 to Length(aList) - 2 do
     Write(aList[I], ', ');
-  WriteLn(aList[High(aList)]);
+  if aList <> nil then
+    WriteLn(aList[High(aList)]);
 end;
 begin