uses crt;
var t,n:qword; s:string;  i:longint;
begin
clrscr;
   write('Nhap 1 so nhi phan:');readln(s);
   t:=1;
   n:=0;
   for i:=length(s) downto 1 do
      begin
         if s[i]='1' then n:=n+t;
         t:=t*2;
      end;
   writeln(n);
readln
end.

///////////////////////////////////////////////

Ở phần khai báo biến t(lũy thừa) và n(kết quả) thì mình có khai báo qword để chương trình xử lý số lớn!

Một số text tham khảo:

program samon247;

uses crt;

Var S:string;
A:array[1..100] of integer;

N,i,k,gt:integer;

Begin
  write('Nhap vao so co dang nhi phan: ');
  Readln(S);
  For i:=1 to length(s) do if S[i]='1' then A[i]:=1 else A[i]:=0;
  N:=0;
 For i:=1 to length(S) do
   Begin
     gt:=1;
      For k:=1 to length(S)-i do gt:=gt*2;
       N:=N+A[i]*gt;
   End;
    write('So do sau khi chuyen sang thap phan la:',N);
Readln
End.