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

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