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

vara: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.