Ввод 10 элементов , вывод только нечетные. язык - pascal abc

Var a: array [1..10] of integer; 
   i:integer;
begin 
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do if a[i] mod 2<>0 then write(a[i],' ');
end.