Найти сумму индексов элементов массива, которые являются степенями числа 2

Program N2;
type z=array[1..100] of real;
var x,y:z;
    s,i,j,n:integer;
Procedure nz(n:integer; var x:z);
var i:integer;
          begin
               for i:=1 to n do
               read(x[i]);
          end;     
Function deg2(n:integer;x:z):z;
var i,j:integer;
    y:z;
    p:real;
          begin
               j:=0;
               for i:=1 to n do
               begin
                    p:=1;
                    while p<x[i] do 
                    p:=p*2;
                    if p=x[i] then
                    begin
                         j:=j+1;
                         y[j]:=x[i];
                    end;
               end;
               deg2:=y;
          end;
begin
     read(n);
     nz(n,x);
     y:=deg2(n,x);
     s:=0;
     for i:=1 to j do
     s:=s+i;
     write(s);
end.

{Cумма индексов элементов массива,которые являются степенями числа 2,
но степени должны вычислятся и поместится в новый вектор с помощу функции.}
 
Program N2;
type
  z=array[1..100] of real;
var
  x,y:z;
  s:real;
  m,i,j,n:integer;
 
Procedure nz(n:integer; var x:z);
var
  i:integer;
begin
  writeln('Введите ',n, ' элементов массива: ');
  for i:=1 to n do
    readln(x[i]);
  writeln('Исходный массив X:');
  for i:=1 to n do
    write(x[i]:6:2);
  writeln;
end;
 
Function deg2(n:integer;x:z;var r:integer;var s1:real):z;
var
  i,j:integer;
  y:z;
  p:real;
  s:real;
begin
  s:=0;
  j:=0;
  for i:=1 to n do
    begin
      p:=1;
      while p<x[i] do
        p:=p*2;
      if p=x[i] then
        begin
          j:=j+1;
          y[j]:=x[i];
          s:=s+i;
        end;
    end;
  r:=j;
  s1:=s;
  deg2:=y;
end;
 
begin
  write('Введите размерность массива: '); readln(n);
  nz(n,x);
  y:=deg2(n,x,m,s);
  writeln('Массив Y:');
  for i:=1 to m do
    write(y[i]:6:2);
  writeln;
  writeln('Cумма индексов элементов массива, которые являются степенями числа 2: ',s:8:0);
  readln;
end.