Вывести список переменных A и B - PascalABC.NET

Формулировка задачи:

Не могу сделать так, чтобы прога выводила много переменных A и B, для всех чисел от 1 до 500 (ну чтобы на каждое число выводило переменные, и тз этого был список)

var x, a, b: longint;
begin
 readln(x);
 a := 0; b := 0;
 while x > 0 do begin
 if x mod 2 = 0 then
 a := a + 1
 else
 b := b + x mod 6;
 x := x div 6;
 end;
 writeln(a); write(b);
end.

Решение задачи: «Вывести список переменных A и B»

Листинг программы

var x, a, b: integer;
begin
for var i:=1 to 500 do
 begin
  x:=i;
  a := 0;
  b := 0;
  while x > 0 do
   begin
    if x mod 2 = 0 then a := a + 1
    else b := b + x mod 6;
     x := x div 6;
    end;
   write('(i=',i:3,' a=',a:2,' b=',b:2,') ');
   if i mod 5=0 then writeln;
  end;
end.

Объяснение кода листинга программы

В данном коде используется цикл for для перебора чисел от 1 до 500. Для каждого числа выполняется следующая последовательность действий:

Число присваивается переменной x.
Переменные a и b инициализируются нулем.
Запускается цикл while, который выполняется до тех пор, пока x не станет равным нулю.
Внутри цикла проверяется, является ли x четным числом (если остаток от деления на 2 равен нулю). Если это так, то к переменной a прибавляется единица.
Если x нечетное, то значение переменной b увеличивается на остаток от деления x на 6.
Затем x делится на 6 и результат присваивается переменной x.
После выхода из цикла while, выводится значение переменных a и b, а также само число i, с которым сейчас работает программа.
Если число i делится на 5 без остатка, то выводится новая строка. Таким образом, данный код выводит список переменных a и b для каждого числа от 1 до 500.