Задача на файловый тип, Подскажите, что неправильно делаю... Опции

[D1ma]

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

Код

program pr;
uses crt;
var
f:file of integer;
a,b,max:integer;
begin
clrscr;
assign(f,'C:/laba');
rewrite(f);
writeln('Vvedite Chisla:');
readln(a);
while A>=0 do begin
write(f,a);
read(a);
end;
reset(f);
max:=0;
while not eof(f) do
begin
read(f,a);
if (b mod 2>0) then
if b>max then max:=b;
end;
writeln('Max=',max);
End.

[volvo]

подкаректируйте что не так делаю.. )

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

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;