Представить степень n1 числа n0 в системе счисления с индексом ic>=20 - PascalABC.NET

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

Доброго времени суток, уважаемые! Стало быть нужно решить простецкую задачку: представить степень n1 числа n0 в системе счисления с индексом ic>=20. Вот если этот индекс меньше десяти, то все вроде работает, а стоит ему чуть перевалить за девятку, сразу начинаются ошибки в вычислении. Заранее благодарен

program kursach;
uses crt;
var k, i, ic, n1, n0, n00, x,y: integer;
arr:array[1..100] of char;
begin
writeln('Введите n1');
write('n1=');
read(n1);
writeln('Введите n0');              {Ввод данных}
write('n0=');
read(n0);
writeln('Введите ic');
write('ic=');
read(ic);
n00:=n0;
k:=1;
for i:=1 to (n1-1) do
  begin
  n00:=n00*n0;           {считаем степень числа}
  end;
  writeln('Check, n0=', n00);
  y:=n00;                          {Где-то здесь и кроется беда.
                                   Вроде попытался реализовать перевод в систему
                                   счисления ic, и вроде как попытался  сделать
                                   вывод на экран через матрицу}
      while y>=ic do            
      begin
      x:=y mod ic;
      y:=y div ic;
          if x>9 then 
          begin
          arr[k]:=chr(55+x);     
          k:=k+1;
          end
          else
          begin
          arr[k]:=chr(x+48);
          k:=k+1;
          end;
      end;
k:=k+1;
arr[k]:=chr(y+48);
        for i:=1 to k do
        begin
        write(arr[k]);
        k:=k-1;
        end;
readln();
end.

Решение задачи: «Представить степень n1 числа n0 в системе счисления с индексом ic>=20»

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

const z='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  var(n,pow,c):=ReadInteger3('Через пробел: n0 n1 ic =');
  var b:=Biginteger.Pow(n,pow);
  WriteLn(b);
  var(r,i):=('',Biginteger.Zero);
  repeat
    b:=Biginteger.DivRem(b,c,i);
    r:=z[(i+1).ToString.ToInteger]+r;
  until b = Biginteger.Zero;
  WriteLn(r);
end.

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

Введенные значения сохраняются в переменных n, pow, c.
Вычисляется n в степени pow.
Результат вычисления записывается в переменную b.
Переменная b выводится на экран.
Переменные r и i инициализируются пустой строкой и нулевым числом соответственно.
Пока b не равно нулю, выполняются следующие действия:
- b делится на c, и остаток от деления сохраняется в переменной i.
- к строке r добавляется символ, соответствующий индексу i в таблице z.
После окончания цикла значение r выводится на экран.