viết chương trình nêu cách đổi từ hệ nhị phân sang hệ thập phân trong pascal

Program NN;
Uses crt;
Var St:string;
    A:array[1..100] of longint;
    n,i,k,gt: longint;
Begin
        Clrscr;
        Write('Nhap nhi phan: '); Readln(St);
        For i:=1 to length(St) do
                If St[i]='1' then A[i]:=1 else A[i]:=0;
        n:=0;
        For i:=1 to length(St) do
        Begin
                gt:=1;
                For k:=1 to length(St)-i do gt:=gt*2;
                n:=n+A[i]*gt;
        End;
        write('So thap phan la: ',n);
        Readln
End.