Создать с клавиатуры массив из 10 целых чисел найти их произведения не четных

Uses crt; var a: array [1… 10] of integer; x,S: integer; begin S: =1; for x: =1 to 10 do begin write (x,' элемент массива — '); readln (a[x]); if a[x] mod 2 <> 0 then S: =S*a[x]; end; writeln (S); end.