Как переделать код?

[P®o©omp@s]

есть код:

Program ex_000;
var A:real;k:integer;s:boolean;
begin
s:=False;
A := 0.01;
for k:=2 to 1000 do
  begin
   A := sin(k+A);
   if (A<0.25) and ((k=1) or (k=2) or (k=4) or (k=8) or (k=16) or (k=32) or
       (k=64)or (k=128) or (k=256) or (k=512)) then begin             
          Writeln('K=',k,'  ;A=',A); S:=True; end;
   end;
if s=False then Writeln('Takovyh net!');
readln;
end.

нужно придумать так что не было этих ((k=1) or (k=2) or (k=4) or (k=8) or (k=16) or (k=32) or
(k=64)or (k=128) or (k=256) or (k=512))
а ввести переменную, которая бы просто умножала в каком то цикле на два, что только не пробовал не получается ...
Замечание модератора: Используйте тег [CODE]

[evg_m]

k:=1;
for j:=1 to 10 do begin
k:=k*2;
A := sin(k+A);
if (A<0.25) then begin
Writeln('K=',k,' ;A=',A); S:=True; end;
end;

[NeshSoft]

Program ex_000;
var A:real;k,KK:integer;s:boolean;
begin
s:=False;
A := 0.01;
KK=2;
for k:=2 to 1000 do
  begin
   A := sin(k+A);
   if (A<0.25) and (KK=k) then 
        begin 
        KK:=KK*2;            
        Writeln('K=',k,'  ;A=',A); S:=True; end;
   end;
if s=False then Writeln('Takovyh net!');
readln;
end.