связать две программки в одну с использованием условия.

[13xXx13]

помогите сделать так, чтоб при выборе условия получалось следующее::
а) при N=2 (т.е. перевод осущ. в 2 систему счисления) используя "if n=2 then" работала эта часть программы:

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.

а при N=10 (т.е. перевод осущ. в 10 систему счисления) "if n=10 then" работала эта часть программы:

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.

буду премного благодарен за помощь))

[GetMax]

uses CRT;
var
   a:longint;
   N:Byte;
   St:String;
function P(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;
P:=res;
END;
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;
  end; 
  Y:=res;
END;
BEGIN
  clrscr;
  writeln(' programma perevoda chisla ');
  writeln(' ');
  writeln(' ****************************************************************');
  writeln('vvedite luboe chislo:');
  readln(a);
  Writeln('Vvedite nomer zadniya: 2 ili 10: ');
  Readln(N);
  Case N of
     2:Begin
          writeln('rezultat perevoda:',P(a))
        End;
    10:Begin
           Str(a,St);
           writeln('rezultat perevoda:',Y(St))
         End;
   End; 
   Readln
END.