Помогите пожалуйста с Pascal!!
Организуйте заполнение типизированного файла случайными
целыми числами из интервала [-10;10].
 Выведите содержимое файла на экран.
Замените компоненты с нечетными номерами на 1.
Дополнительный массив не использовать.
  Выведите на экран измененное содержимое файла.