Перевод чисел из одной системы счисления в другую

// Перевод BigInteger в систему счисления по основанию 2..
function ToBase(Число: BigInteger; Основание: integer): list<integer>;
begin
  Result := new List<integer>;
  while Число > 0 do begin
    Result.Insert(0, integer(Число mod Основание));
    Число := Число div Основание
  end;
  if not Result.Any then Result.Add(0);
end;
 
// Перевод из системы по основанию 2.. в десятичную
function DecBig(СтроковоеПредставление: sequence of integer; Основание: integer): BigInteger;
begin
  var ВесРазряда := 1bi;
  foreach var Значение in СтроковоеПредставление.Reverse do
  begin
    Result += ВесРазряда * Значение;
    ВесРазряда *= Основание
  end
end;
 
begin
 var Основание := ReadlnInteger('Введите основание системы счисления 2 <= n <= 10000, n =');
 var КолвоСимволов := ReadlnInteger('Введите количество "цифр" в числе с введенным основанием: ');
 var Число := ReadlnString('Введите через пробел последовательность "цифр" этого числа.' +
     'Каждая цифра – это десятичное число: ').ToIntegers;
 var Основание2:=ReadlnInteger('Введите новое основание системы счисления. 2 <= k <= 10000; k =');
 'Результат перевода:'.Print;
 ToBase(DecBig(Число, Основание), Основание2).Println;
end.