Перевод двоичных чисел

uses crt;
const zn:string[16]='0123456789ABCDEF'; {цифры в СС 16}
var i,j,sum,sum2:integer;
    s2,s16:string;
    k:byte;
begin
clrscr;
sum:=0;
repeat
k:=0;
write('Введите число в СС 2 s2=');
Readln(s2);
{перевод из 2 в 10}
for i:=1 to length(s2) do
if not(s2[i] in ['0','1'])then k:=1;
if k=1 then writeln('Это не число в СС 2, повторите ввод.');
until k=0;
for i:=length(s2)-1 downto 1 do
 begin
  if s2[i]='1' then
   begin
    sum2:=1;
    for j:=1 to length(s2)-i do sum2:=sum2*2;
   end
  else sum2:=0;
  sum:=sum+sum2;
 end;
If s2[Length(s2)]='1' Then Inc(sum);
writeln('Число в СС 10 =',sum);
{перевод из 10 в 16}
s16:='';
while sum>0 do
 begin
  s16:=zn[sum mod 16+1]+s16;
  sum:=sum div 16;
 end;
writeln('Число в СС 16=',s16);
{перевод из 16 в 2 тетрадами}
s2:='';
for i:=1 to length(s16) do
  case s16[i] of
    '0': s2:= s2 + '0000';
    '1': s2:= s2 + '0001';
    '2': s2:= s2 + '0010';
    '3': s2:= s2 + '0011';
    '4': s2:= s2 + '0100';
    '5': s2:= s2 + '0101';
    '6': s2:= s2 + '0110';
    '7': s2:= s2 + '0111';
    '8': s2:= s2 + '1000';
    '9': s2:= s2 + '1001';
    'A': s2:= s2 + '1010';
    'B': s2:= s2 + '1011';
    'C': s2:= s2 + '1100';
    'D': s2:= s2 + '1101';
    'E': s2:= s2 + '1110';
    'F': s2:= s2 + '1111';
   end;
if s2[1]='0' then  {если в начале ноли, удалим их}
while s2[1]='0' do delete(s2,1,1);
writeln('Число в СС 2=',s2);
readln
end.