Помогите,пожалуйста,решить задачу на массивы.
Массив А вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный.

 const     
n = 5;      
var   
a : array [1..n] of integer;   
i : integer;    
begin     
for i := 1 to n do   
read (a[i]);      
for i := 1 to n do   
if a[i] mod 2 = 1 then     
write (a[i]+' ');       
end.