Переписать подряд в массив ZBT индексы всех элементов массива BT(n) удовлетворяющих 0<bt[i]<a

Program Ver2118;
       var F : array [1..10] of real;
           B : array [1..10] of real;
  a, n, i, j : integer;
    begin write ('n = '); readln (n);
           writeln ('Massiv B');
           for i:=1 to n do
           begin write ('B[',i,']=');
            readln (B[i]);
            end;
              begin j:=0;
              write ('a = '); readln (a);
                    if (b[i]>0) and (b[i]<a) then F[j]:=i
                    else writeln ('Massiv F');
                    for j:=1 to n do
                    write ('F[',j,'] = ', F[j], ' ');
                    writeln;
             end; 
     end.

program Ver2118;
 
var
  F: array [1..10] of integer;
  B: array [1..10] of real;
  a, n, i, j: integer;
 
begin
  write('n = ');
  readln(n);
  j := 0;
  write('a = ');
  readln(a);
  writeln('Massiv B');
  for i := 1 to n do
  begin
    write('B[', i, ']=');
    readln(B[i]);
    if (b[i] > 0) and (b[i] < a) then 
    begin
      inc(j);
      F[j] := i;
    end;
  end;
  for i := 1 to j do
    write('F[', i, '] = ', F[i], ' ');
  writeln;
end.