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

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.