Дописать программу на Pascal ABC

[daniil-640]

 var
    i,res,j,k,l: integer;
    s,ch:string;
function power (x,pow:integer):integer;
var res: integer;
begin
    res := 1;
    while (pow > 0) do
    begin
        if (pow and 1 = 1) then res := res * x;
        x := x + x;
        pow := pow shr 1;
    end;
    power := res;
end;
Begin
 writeln('pruvwedite prumer dvou4Hogo koga s y4etom maks dopystumogo 4usla v uspolzyemoi konfugyracuu kompa');
 for i:=1 to 1 do read(ch);  l:=length(ch);
 if l<>16 then
    begin
        while k<> 2 do
             begin
     write('Poprobyite eshe raz, 4usel dolzhHo BbIt 16!'); read(ch); l:=length(ch);
 if l=16 then break;
     k:=k+1
     end;
              end;
    res:=0;
    j:=length(ch);
    for i:=1 to 16 do
        if (ch[i]='1') then
            res:=res+power(2,j-i);
            if l=16 then
    writeln('4uslo ravHo = ',res);
End.

программа анализирует, если введено 16-ти значное двоичное число, то программа переводит двоичное число в десятичное, но проблема в том что переводит не правильно, подскажите в чем ошибка,
зы. когда ввожу допустим 1111111111111111 это = 65535, но выводит всего 2295, помогите исправить в чем ошибка в функции

[BDA]

var
  k, i, res: integer;
  s: string;

begin
  writeln('pruvwedite prumer dvou4Hogo koga s y4etom maks dopystumogo 4usla v uspolzyemoi konfugyracuu kompa');
  k := 0;
  readln(s);
  while(length (s) <> 16) and (k < 3) do
  begin
    write('Poprobyite eshe raz, 4usel dolzhHo BbIt 16!');
    inc(k);
    readln(s);
  end;
  if length(s) = 16 then
  begin
    res := 0;
    for i := 1 to 16 do
      res := res * 2 + ord(s[i]) - ord('0');
    writeln('4uslo ravHo = ', res);
    readln;
  end;
end.

Но никакого анализа того, что это действительно двоичное число, нет.