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

uses   crt;  var  a:array[1..5] of integer;   n:integer;   i:byte; begin for i:=1 to 5 do begin read(a[i]); writeln; end; for i:=1 to 5 do begin if a[i] mod 2 <> 0 then writeln(a[i]); end; end.