Помогите пожалуйста с задачкой!, Максимальный элемент на четных позициях файла Опции

[Arel]

Здравствуйте! Помогите пожалуйста с задачкой!
Создать числовой файл F, найти максимальный элемент, среди компонент на чётных позициях файла.
Все нулевые заменить на максимальный. Преобразованный файл распечатать.
Заранее спасибо!!!!!!!!!!!

[volvo]

Как мне взять из файла каждый второй элемент и засунуть в массив?

Seek еще никто не отменял. У тебя все-таки по заданию файл типизированный (иначе понятие "четная позиция" лишено смысла)...

i := 2;
while i < filesize(f) do begin
  seek(f, i);
  read(f, massiv[i div 2]);
  inc(i, 2);
end;