Одномерный массив задача

[COLOR="#ff0000"]uses[/COLOR] crt;
[COLOR="#ff0000"]var[/COLOR] n,k,count,nv:word;

[COLOR="Red"]function[/COLOR] Pow (x,k:real):real;
  [COLOR="#ff0000"]var[/COLOR] T:real;
 [COLOR="#ff0000"] begin[/COLOR]
     T:=abs(x);
     [COLOR="#ff0000"]If[/COLOR] x<0 [COLOR="Red"]then[/COLOR] Pow:=(-1)*exp(k*Ln(T))
     [COLOR="#ff0000"]else[/COLOR] Pow:=exp(k*Ln(T));
  [COLOR="#ff0000"]end[/COLOR];
[COLOR="#ff0000"]
begin[/COLOR]
  clrscr; count:=0;
  write  ('Введите n:  ');
  readln (n);
  [COLOR="#ff0000"]for[/COLOR] k:=1 [COLOR="#ff0000"]to[/COLOR] n [COLOR="#ff0000"]do begin[/COLOR]
     write ('Введите a(',k,')');
     readln (nv);
     [COLOR="#ff0000"]if[/COLOR] ((Pow(2,k)<nv) [COLOR="#ff0000"]and[/COLOR] (nv<k)) [COLOR="Red"]then[/COLOR] inc(count);
  [COLOR="Red"]end[/COLOR];
[COLOR="#ff0000"]end[/COLOR].