Задание:
Дан файл f, компоненты которого являются действительные числами.Найти наибольшее из значений компонент
с нечетными номерами.
Вот мой код, подкаректируйте что не так делаю.. )

Во-первых, работаешь с целыми числами вместо вещественных. А во-вторых, то, что ты делаешь во второй части программы вообще не поддается описанию. Тебе достаточно вот этого:

reset(f);
max := 0; b := 1;
while not eof(f) do begin
  read(f, a); { <--- Читаем ЧИСЛО }

  { Если _индекс_ - нечетный, и _число_ больше максимума }
  if odd(b) and (a > max) then max := a;

  inc(b); { <--- Увеличиваем ИНДЕКС }
end;

Строка:

max := 0;

не совсем корректная, т.к. последнее записанное в файл число может быть и отрицательным.

тогда

reset(f);
read(f,a);
max:=a;
seek(f,0);
...

Казалось бы, при чем последнее? Если хоть одна из нечетных компонент будет положительной - код абсолютно корректен. Если все нечетные компоненты отрицательные - надо менять 0 на минимально допустимое вещественное значение.

Добавлено через 3 мин.
amega, тебе привести пример содержимого файла, для которого это не отработает, или сам попытаешься подумать?

не не нада я и так вижу просто написал чтобы человек успокоился)

Больше ПРОСТО так не пиши ничего... Договорились?

ага

Все-таки есть вероятность, что при заполнении файла первым введенным пользователем числом будет отрицательное число. Тогда файл будет содержать всего одно число, и программа даст ответ, что максимальное с нечетным номером число равно 0.
Тогда лучше сделать так:

 reset(f);
 b := 1;
 while not eof(f) do begin
  read(f, a);
  if (b=1) or (odd(b) and (a > max))  
   then max := a;
  inc(b); 
 end;

В таком случае файл не будет содержать ни одного числа, он будет пустым, и твой вариант тоже выдаст тот же ответ: максимальное число = 0.

Смотри внимательно: ни одно отрицательное число в файл записано не будет, поскольку запись происходит внутри цикла While a >= 0, поэтому все, начиная с третьего поста, не имеет шансов сбыться...

Извиняюсь, был невнимателен.
Не заметил эти строчки: