Перевод в системах счисления целых чисел

const a16=['0'..'9','A'..'F'];
      a2:array['0'..'3'] of string[2]=('00','01','10','11');
var s16,s2,s4:string;
    n,i:integer;
    j:char;
begin
repeat
writeln('Введите число в СС 16');
readln(s16);
s16:=uppercase(s16);
i:=1;
while (i<=length(s16))and(s16[i] in a16) do inc(i);
if i<=length(s16) then writeln('Число введено неверно, повторите');
until i>length(s16);
if (s16[1]>'7')and(copy(s16,2,length(s16))>='FFFFFFF') then
 begin
  writeln('Слишком большое число');
  exit;
 end;
n := 0;
for i:=1 to length(s16) do
case s16[i] of
'0'..'9':n:=n*16+strtoint(s16[i]);
'A'..'F':n:=n*16+ord(s16[i])-55
end;
writeln('Число в СС 10=',n);
s2:='';
while n>0 do
 begin
  s2:=inttostr(n mod 2)+s2;
  n:=n div 2;
 end;
writeln('Число в СС 2=',s2);
if odd(length(s2))then s2:='0'+s2;
s4:='';
i:=1;
while i<length(s2) do
 begin
  for j:='0' to '3' do
  if copy(s2,i,2)=a2[j] then s4:=s4+j;
  i:=i+2;
 end;
writeln('Число в СС 4=',s4);
end.

const a16=['0'..'9','A'..'F'];
      a2:array['0'..'3'] of string[2]=('00','01','10','11');
procedure vvod(var s:string);
var i:byte;
begin
repeat
writeln('Введите число в СС 16');
readln(s);
s:=uppercase(s);
i:=1;
while (i<=length(s))and(s[i] in a16) do inc(i);
if i<=length(s) then writeln('Число введено неверно, повторите');
until i>length(s);
if (s[1]>'7')and(copy(s,2,length(s))>='FFFFFFF') then
 begin
  writeln('Слишком большое число');
  exit;
 end;
end;
procedure hextodec(s:string;var n:integer);
var i:byte;
begin
n := 0;
for i:=1 to length(s) do
case s[i] of
'0'..'9':n:=n*16+strtoint(s[i]);
'A'..'F':n:=n*16+ord(s[i])-55
end;
writeln('Число в СС 10=',n);
end;
procedure dectobin(n:integer;var s:string);
begin
s:='';
while n>0 do
 begin
  s:=inttostr(n mod 2)+s;
  n:=n div 2;
 end;
writeln('Число в СС 2=',s);
end;
procedure bintoqwart(s2:string;var s4:string);
var i:byte;
    j:char;
begin
if odd(length(s2))then s2:='0'+s2;
s4:='';
i:=1;
while i<length(s2) do
 begin
  for j:='0' to '3' do
  if copy(s2,i,2)=a2[j] then s4:=s4+j;
  i:=i+2;
 end;
writeln('Число в СС 4=',s4);
end;
var s16,s2,s4:string;
    n:integer;
    j:char;
begin
vvod(s16);
hextodec(s16,n);
dectobin(n,s2);
bintoqwart(s2,s4);
end.