Программа перевода из двоичной системы счисления в шестнадцатеричную систему счисления

uses
    crt;
var
   s:string;
   i:integer;
begin
     s:=' asd  as asd dasd  asdasd ';
      if s[1]=' ' then
         delete(s,1,1);
      if s[length(s)]=' 'then
         delete(s,length(s),1);
      while pos('  ',s)>0 do
            delete(s,pos('  ',s),1);
      write(s);
end.

uses crt;
const figure: string [36]='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var dint: longint;
    qint: string;
    q: byte;
    s,s1: string;
    u:byte;
    
procedure IntToDec (q:byte; qint :string; var dint:longint);   {Из любой в десятичную. Только целые.}
var j:byte;
 begin
  dint:=0;
  For j:=1 to length (qint) do
     dint:=q*dint+pos(qint[j],figure)-1;
 end;
 
procedure DecToQ (q,dint:longint;var qint:string);  {Из десятичной в любую. Только целые.}
begin
 qint:='';
   Repeat
    qint:=figure[dint mod q+1]+qint;
    dint:=dint div q;
   Until dint = 0;
end;
 
procedure sixth;
var code:integer;
 begin
  Writeln ('Введите число: ');
  Read (qint);
  q:=2; // Начальная система
  IntToDec (q,qint,dint);
  str(dint,s1);
  q:=16; // Система в которую перевести
  Val (s1,dint,code);
  DecToQ(q,dint,qint);
  Writeln ('Результат: ');
  Writeln (qint);
 end;
 
begin
  sixth;
end.

uses crt;
const a: array [1..16] of string = ('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111');
      const figure: string [16]='0123456789ABCDEF';
var  s    :string;
     temp :string;
     s1   :string;
     i    :integer;
 
begin
 Read (s); s1:='';
{Добавление незначащих цифр}
While length(s) mod 4 <> 0  do
  Insert('0',s,1);
{Обработка строки}
While length(s) <> 0 do
 begin
  temp := copy (s,length(s)-3,length(s));
   For i:=1 to 16 do
     If temp = a[i] then
      begin
       s1:=figure[i]+s1;
       delete(s,length(s)-3,4)
      end;
 end;
Writeln (s1);
end.

//-------------------------------------------------
//для использования нужно подключить библиотеку Biginteger ну и модуль konvert.
uses System.Numerics, konvert;
//-------------------------------------------------
 
var Bi:Biginteger:=Biginteger.Parse('12345678901234567890');//длинное 10R число BigInteger.
var R:integer:=2;//ричность числа вЫходящего.
 
var ss:string:= IntToR(Bi,R);  //КОНВЕРТИРУЮ Biginteger в любую ричность.
//IntToR(большое целое Biginteger, ричность числа на выходе);
 
//или функиция IntToR16() которая 16-и ричную систему представляет в символах (0123456789ABCDEF).
//-------------------------------------------------
 
var Bi:Biginteger:= RToInt(R,ss);  //КОНВЕРТИРУЮ из любой ричности в Biginteger.
//RToInt(ричность числа входящего,число для конвертации с порциями разделенными чем угодно не относящимся);
 
//или функиция RToInt16() которая 16-и ричную систему представляет в символах (0123456789ABCDEF).
//-------------------------------------------------