Найти все нечетные элементы массива целых чисел на паскале

Var
a:array[1..10] of integer;
i:integer;

begin
 for i:=1 to 10 do
  begin
   a[i]:=random(10)+1; //или любой другой задать массив
   if ((a[i] mod 2)<>0) then write(a[i]);
  end;
end.