Перевод из двоичной в 16-ричную систему счисления

uses
  crt;
var
  i,s,k,m,x,y: integer;
  j: char;
  n: string;
  a: array [1..10] of char;
begin
  clrscr;
  write('Wwedite chislo: ');
  readln(n);
  y:=0;
  m:=-1;
  while n<>'' do
  begin
    k:=0;
    for i:=1 to 4 do
      if n<>'' then
      begin
        x:=1;
        inc(m);
        j:=n[length(n)];
        delete(n,length(n),1);
        for s:=1 to m do
          x:=x*2;
        k:=k+(ord(j)-48)*x;
      end
      else
        break;
    inc(y);
    case k of
      0..9: a[y]:=chr(k+48);
      10: a[y]:='A';
      11: a[y]:='B';
      12: a[y]:='C';
      13: a[y]:='D';
      14: a[y]:='E';
      15: a[y]:='F';
    end;
    m:=-1;
  end;
  for i:=y downto 1 do
    write(a[i]);
  readkey;
end.

Const
  cHexDigit : string = '0123456789ABCDEF';

case k of
      0..9: a[y]:=chr(k+48);
      10: a[y]:='A';
      11: a[y]:='B';
      12: a[y]:='C';
      13: a[y]:='D';
      14: a[y]:='E';
      15: a[y]:='F';
    end;

case k of
      0..9: a[y]:=chr(k+48);
      10..15: a[y]:=chr(k+55);
    end;