Можете помочь понять код?

Question

[uliana00]

Задание:Напишите программу нахождения следующего за данным числом совершенного числа.
Вот работающий код. Объясните пожалуйста что такое j и f.

res : cardinal;
procedure proc (a : integer; var x : int64);
var i, f,j : cardinal;
begin
  i := a + 1;
  res := 0;
  j := 0;
  while not(res = i) do
    begin
   { while (f < i) do
    begin
    if (i mod f = 0) then
      begin
        res := res + f;
        if (res > i) then
          break;
      end;
      inc (f);
    end;  }
    for j:=i div 2 downto 1 do
    begin0
      if (i mod j = 0) then
      begin
        res := res + j;
        if (res > i) then
          break;
      end;

    end;
    if (res = i) then Break
    else
      begin
        res := 0
      end;
    inc (i);
    end;

  x := res;
end;

Comments

[Denis Popov]

переменные это, что тут понимать...
пока f меньше i будет выполняться код внутри
while (f < i) do
begin
...
end
inc (f);
inc (i);
как я понимаю увеличивает значение переменных на 1

for j:=i div 2 downto 1 do
другой вид цикла. div - целочисленное деление. Допустим i = 5;
5 div 2 будет 2

цикл выполнится сначала с j=2
затем еще раз, но j будет уже 1

downto указывает на то как будет изменяться j на +1 или -1