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

uses crt;
const zn:string[16]='0123456789ABCDEF'; {цифры в СС 16}
var i,j,sum,sum2,l:integer;
s2,s16:string;
k:byte;
procedure prov(var q:integer; w:string);
begin
if (w[1]='-') then
begin
q:=1;
delete(w,1,1);
end;
end;
begin
clrscr;
l:=0;
sum:=0;
repeat
k:=0;
write('Введите число в СС 2 s2=');
Readln(s2);
prov(l,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);
if (l=0) then writeln('Число в СС 2=',s2)
else writeln('Число в СС 2=-',s2);
readln;
end.