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

uses crt;
var i,j,k,sum: integer;
    s: string;
 
function BinToDec(s: string): integer;
var i,k,bin: integer;
begin
 bin:=0;
 k:=0;
 for i:=length(s) downto 1 do
  if s[i]='1' then
   begin
    bin:=bin+round(exp(ln(2)*k));
    inc(k);
   end
  else
   inc(k);
 BinToDec:=bin;
end;
 
begin
 sum:=0;
 write('Введите число в двоичной сс: ');
   readln(s);
  writeln('Answer: ',BinToDec(s));
end.

Var n : longint;
Procedure convert(n : integer);
Begin
    if n = 0 then
        exit
    else begin
        convert(n div 2);
        Write(n mod 2);
    end;
End;
Begin
    ReadLn(n);
    convert(n);
End.

uses crt;
const n: string [36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 
var d: integer;
    q: string;
 
function DecToQint (var q: string): string;
var i,q1,code,d: integer;
    s1: string;
begin
 q1:=2;
 d:=0;
 for i:=1 to length(q) do
  d:=q1*d+pos(q[i],n)-1;
 str(d,s1);
 val(s1,d,code);
 q1:=16;
  q:='';
 while d<>0 do
  begin
   q:=n[d mod q1+1]+q;
   d:=d div q1;
  end;
  dectoqint:=q;
end;
 
 begin
  Writeln ('Введите число: ');
   Read (q);
  Writeln ('Результат: ');
  Writeln (DecToQint(q));
end.