перевод чисел. (связать две программы в одну.)

[13xXx13]

первая программа переводит число из 10 в 2 систему счисления, вторая из 2 в 10 систему счисления
помогите их соединить чтоб программа переводила число из любой системы счисления в любую систему счисления!! please))

uses CRT;
var a:longint;
function Y(x:longint):string;
const digits:array [0..1] of char = ('0','1');
var res:string; d:0..1;
BEGIN
res:='';
while (x<>0) do begin
d:=x mod 2; res:=digits[d]+res;
x:=x div 2;
END;
Y:=res;
END;
BEGIN
clrscr;
writeln(' programma perevoda chisla iz desjatichnoi sistemy v dvoichnuiy');
writeln(' ');
writeln(' *********************************** *****************************');
writeln('vvedite luboe chislo:'); readln(a);
writeln('rezultat perevoda:',Y(a)); readln
END.


uses crt; var a : string;
function Y(x:string):longint;
const cifri:array [0..1] of char = ('0','1');
var res,ves:longint; i,j:byte;
BEGIN
res:=0; ves:=1;
for i:=length(x) downto 1 do begin
j:=0;
while (cifri[j]<>x[i]) do inc(j);
res:=res+ves*j;
ves:=ves*2;
end; Y:=res;
END;
BEGIN
clrscr;
writeln(' programma perevoda chisla iz dvoichnoy sistemy v desjatichnuy');
writeln(' ');
writeln(' *********************************** *****************************');
writeln('vvedite luboe chislo:'); readln(a);
writeln('rezultat perevoda:',Y(a)); readln
END.

[NioTo]

function ConvertNumeralSystem(Number: String; SourceBase, ResultBase: Integer): String;
var
  i, j: Integer;
  k: LongInt = 1;
  Digits: Array[0..34] of Char = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');
  Dec: LongInt = 0;
begin
  for i := Length(Number) downto 1 do begin
    j := 0;
    while Number[i] <> Digits[j] do
      Inc(j);

    Dec := Dec + j * k;
    k := k * SourceBase;
  end;

  ConvertNumeralSystem := '';
  while Dec <> 0 do begin
    ConvertNumeralSystem := Digits[Dec mod ResultBase] + ConvertNumeralSystem;
    Dec := Dec div ResultBase;
  end;
end;

var
  Number: String;
  SourceBase, ResultBase: Integer;

begin
  ReadLn(Number, SourceBase, ResultBase);
  WriteLn(ConvertNumeralSystem(Number, SourceBase, ResultBase));
end.