Написать программу, которая заменяет все встречающиеся в тексте числа на эти же числа, но в двоичной системе счисления

var s,s1,s2,s3,s4:string;
var i,j,a,b,c,k:integer;
begin
     readln(s);
     for i:=1 to length(s) do
     if (ord(s[i])>47) and (ord(s[i])<58) then
     begin
          s1:='';
          s2:='';
          s3:='';
          k:=-1;
          for j:=i to length(s) do
          if (ord(s[j])>47) and (ord(s[j])<58) then 
          begin
               s1:=s1+s[j];
               k:=k+1;
          end          
          else break;
          val(s1,a,b);
          while a>=1 do
          begin
               c:=a mod 2;
               a:=a div 2;
               str(c,s2);
               s3:=s3+s2;
          end;
          for j:=length(s3) downto 1 do
          s4:=s4+s3[j];
          delete(s,i+1,k);
     end
     else s4:=s4+s[i];
     writeln(s4);
end.
 
[size="1"][color="grey"][I]Добавлено через 21 минуту[/I][/color][/size]
Можете предлагать свои варианты решения.
Я уже исправил ошибку.
Вот новая программа.
 
var s,s1,s2,s3,s4,s5:string;
var i,j,a,b,c,k:integer;
begin
     readln(s);
     for i:=1 to length(s) do
     if (ord(s[i])>47) and (ord(s[i])<58) then
     begin
          s1:='';
          s2:='';
          s3:='';
          k:=0;
          for j:=i to length(s) do
          if (ord(s[j])>47) and (ord(s[j])<58) then 
          begin
               s1:=s1+s[j];
               k:=k+1;
          end          
          else break;
          val(s1,a,b);
          while a>=1 do
          begin
               c:=a mod 2;
               a:=a div 2;
               str(c,s2);
               s3:=s3+s2;
          end;
          for j:=length(s3) downto 1 do
          s4:=s4+s3[j];
          delete(s,i,k);
          for j:=1 to k do
          insert(chr(1),s,i);
     end
     else s4:=s4+s[i];
     for i:=1 to length(s4) do
     if (s4[i]<>chr(1)) then s5:=s5+s4[i];
     writeln(s5);
end.

procedure AddBase2(self: StringBuilder; var num: BigInteger); extensionmethod;
begin
  var i := self.Length;
  while num<>0 do
  begin
    self.Insert(i, num.IsEven?'0':'1' );
    num := num div 2;
  end;
end;
 
begin
  var res := new StringBuilder;
  
  var last_num := new BigInteger(0);
  foreach var ch in ReadString do
    if ch.IsDigit then
      last_num := last_num*10 + ( integer(ch)-integer('0') ) else
    begin
      res.AddBase2(last_num);
      res += ch;
    end;
  res.AddBase2(last_num);
  
  res.ToString.Println;
end.

procedure AddBase2(self: StringBuilder; var nnum: BigInteger?); extensionmethod;
begin
  if nnum=nil then exit;
  var num := nnum.Value;
  nnum := nil;
  
  if num=0 then
  begin
    self += '0';
    exit;
  end;
  
  var i := self.Length;
  while num<>0 do
  begin
    self.Insert(i, num.IsEven?'0':'1' );
    num := num div 2;
  end;
  
end;
 
begin
  var res := new StringBuilder;
  
  var last_num: BigInteger?;
  foreach var ch in ReadString do
    if ch.IsDigit then
      last_num := (last_num=nil?0:last_num.Value*10) + ( integer(ch)-integer('0') ) else
    begin
      res.AddBase2(last_num);
      res += ch;
    end;
  res.AddBase2(last_num);
  
  res.ToString.Println;
end.