Binary turn ten

Var s: string;

I, J: Integer;

N: integer;

Begin

S: = '01100001';

J: = Length (s);

N: = 0;

For i: = 1 to j DO

Begin

N: = N STRTOINT (S [i]) SHL (J -I);

END;

ShowMessage (chr (n));

END;