Дан массив. Найти...

Дан массив. Найти все его нечетные элементы. И записать в массив B.

 

Const n=10;  //введёте своё количество членов массива
var  b: array [1..n] of real;
       i: integer;
begin 
   writeln('Введи массив'); 
   for i := 1 to n do read(b); 
   i:=1; 
 while i <= n do
    begin 
      write(b,'  ');  // Если не поставить это ,'  '); тогда будет выводить все числа слитно
       i := i + 2;
      end;
end.