Вычисление решетом Эратосфена (Delphi)

[Fatalita]

program n_557;

{$APPTYPE CONSOLE}

const N = 1000;

var grid: Array [2..N] of Integer;

procedure Eratosphene;
var
	i, j: Integer;
	resultArray: Array of Integer;
begin
	for i := 2 to N do
		grid[i] := i;

	for i := 2 to N do
	begin
		if grid[i] <> 0 then
		begin
			for j := i to N by i do
				grid[j] := 0;
		end;
	end;
end;

procedure DoOutput
var i: Integer;
begin
	for i := 2 to N do
		if grid[i] <> 0 then
			writeln(i);
end;

begin
	Eratosphene;
	DoOutput;
end.

Как вообще в Делфи можно записать "по" т.е by?
Видите еще какие - нибудь ошибки?

[veniside]

> Как вообще в Делфи можно записать "по" т.е by?

никак, кто-то скопипастил из бейсика.


> Видите еще какие - нибудь ошибки?

видим.

[s-andriano]

Шаг цикла for всегда 1.
Поэтму либо использовать другой тип цикла:

j := i;
while j < N do begin
  grid[j] := 0;
  inc(j, i);
end;

Либо примерно так:

for j := 1 to N div i do
  grid[j*i] := 0;