Помогите с описанием программы; Оч надо!, Задача на решето эратосфена;/////////////// Опции

[Roofless]

Пожалуйсто напишите пояснения к (почти) каждой строчке; мне очень срочно нужно с ней разобраться.

Program resheto;
Const
  n=500;
type
   erat = array[0..n] of boolean;
Var
  j,i,k:integer;
  b: erat;
Begin
read(j);  
for i:=2 to j do b[i]:=true; {??????????}
  i:=2;               {??????????}
  repeat            {??????????}
    k:=i;              {??????????}
    repeat           {??????????}
      i:=i+k;         {??????????}
      b[i]:=false;    {??????????}
    until i>j;           {??????????}
    i:=k+1;             {??????????}
  until i>j;              {??????????}
for i:=2 to j do        {??????????}
      if b[i]=true then write(i,' ');       {??????????}
    readln;                     {??????????}
  readln;                       {??????????}
end;                          {??????????}

Заранее огромное спасибо!

[Roofless]

мне нужно понять что делает программа! За что отвечает for и until в ней