Динамические структуры: Заменить каждый элемент списка на его запись в шестнадцатеричной системе счисления

uses crt;
 
type alist=^a;
 a = record
  data: real;
  next: alist;
 end;
 
 var first: alist;
     i,n: integer;
     s: real;
     
 procedure add(var first: alist; x: real);
 var cur: alist;
 begin
  if first=nil then
  begin
   new(first);
   cur:=first;
  end
  else
  begin
   cur:=first;
    while cur^.next<>nil do
     cur:=cur^.next;
    new(cur^.next);
    cur:=cur^.next;
  end;
  cur^.next:=nil;
  cur^.data:=x;
 end;
 
 procedure list(first: alist);
 begin
  while first<>nil do
   begin
    write(first^.data,' ');
    first:=first^.next;
   end;
  writeln;
 end;
 
 function BinToHex(s: string): real;
var x,i,p,code: integer;
    sum: real;
begin
 x:=0;
 sum:=0;
 for i:=length(s) downto 1 do
  begin
   val(s[i],p,code);
   if p>0 then
    sum:=sum+exp(ln(2)*x);
   inc(x);
  end;
 bintohex:=sum;
end;
 
 procedure Replace(first: alist);
 var i: integer;
     s: string;
 begin
  while first<>nil do
   begin
    str(first^.data,s);
    first^.data:=bintohex(s);
    first:=first^.next;
   end;
 
 end;
 
 begin
  clrscr;
  first:=nil;
  write('Количество элементов: ');
  readln(n);
  writeln('Введите элементы в двоичной системе счисления: ');
  for i:=1 to n do
   begin
    readln(s);
    add(first,s)
   end;
  writeln('Исходные элементы: ');
  list(first);
  replace(first);
  writeln('Полученные элементы: ');
  list(first);
  readln;
 end.

uses crt;
 
const n: string [36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 
type alist=^a;
 a = record
  data: string;
  next: alist;
 end;
 
 var first: alist;
     i,n1: integer;
     s: string;
     
 procedure add(var first: alist; x: string);
 var cur: alist;
 begin
  if first=nil then
  begin
   new(first);
   cur:=first;
  end
  else
  begin
   cur:=first;
    while cur^.next<>nil do
     cur:=cur^.next;
    new(cur^.next);
    cur:=cur^.next;
  end;
  cur^.next:=nil;
  cur^.data:=x;
 end;
 
 procedure list(first: alist);
 begin
  while first<>nil do
   begin
    write(first^.data,' ');
    first:=first^.next;
   end;
  writeln;
 end;
 
function DecToQint (var q: string): string;
var i,q1,code,d: integer;
    s1: string;
begin
 q1:=2;
 d:=0;
 for i:=1 to length(q) do
  d:=q1*d+pos(q[i],n)-1;
 str(d,s1);
 val(s1,d,code);
 q1:=16;
  q:='';
 while d<>0 do
  begin
   q:=n[d mod q1+1]+q;
   d:=d div q1;
  end;
  dectoqint:=q;
end;
 
 procedure Replace(first: alist);
 var i: integer;
 begin
  while first<>nil do
   begin
    first^.data:=DecToQint(first^.data);
    first:=first^.next;
   end;
 
 end;
 
 begin
  clrscr;
  first:=nil;
  write('Количество элементов: ');
  readln(n1);
  writeln('Введите элементы в двоичной системе счисления: ');
  for i:=1 to n1 do
   begin
    readln(s);
    add(first,s)
   end;
  writeln('Исходные элементы: ');
  list(first);
  replace(first);
  writeln('Полученные элементы: ');
  list(first);
  readln;
 end.