Помогите с задачей: определить все про числа от 1 до n

[laneen]

На информатике дали следующую задачу:
Написать программу которая определят все простые числа от 1 до n.
Т.е. вводишь любое число число, допустим 100, а программа выводит все простые числа от 1 до 100.

Как это реализовать в Delphi, помогите пожалуйста?
Я совсем новичок в программировании, так что не ругайтесь, если это абсолютно тривиально

[maladoy]

Процедура заполняет массив P простыми числами, меньшими n, элемент массива является последним, если следующий за ним элемент равен 0.

procedure EratosthenesSieve(const N : Integer; var P : TInteger1DArray);
var
C : Boolean;
I : Integer;
J : Integer;
K : Integer;
R : Integer;
S : Double;
begin
if N>200 then
begin
R := trunc(N/(Ln(N)-2)+1);
end
else
begin
R := trunc(1.6*N/Ln(N)+1);
end;
SetLength(P, R+1);
P[1] := 1;
P[2] := 2;
P[3] := 3;
i := 4;
repeat
P[i] := 0;
i := i+1;
until not (iS then
begin
P[j] := k;
j := j+1;
c := False;
end;
until not ((trunc(k/P[i])*P[i]K) and C);
k := k+2;
until not (k<=n);
end;

исправь как надо!