Здравствуйте, Aleksandrkib!
По условию задачи дан файл вещественных чисел, а не целых. Привожу переделанный вариант первого решения для данного случая:

Здравствуйте, Aleksandrkib!
Вот в приложении в архиве, чтобы было все нормально, два исходных файла: M187481.PAS, который генерирует файл чисел типа Word. Числа случайные.
Второй файл P187481.PAS - собственно, программа, которая анализирует файл
Тщательно работу не анализировал, так что если заметите что-то не так пишите - исправлю

Приложение:
{Текст файла M187481.PAS}
uses CRT;
{Программа для генерации файла случайных чисел}
CONST
FileName: String = '187481.dat';
count:Word = 100; {Максимальное число элементов в файле}
VAR
f: File of Real;
i, w: Real;
BEGIN
WriteLn('Введите число чисел, которое будет записано в файл ',FileName);
WriteLn('Вводите неотрицательное число не больше 65535');
ReadLn(count);
Assign(f, FileName);
Rewrite(f);
Randomize;
i := 0;
while i < count do
begin
w := Random(65535)+1;
Write(f, w);
i := i+1;
end;
Close(f)
END.

{Текст файла P187481.PAS}
CONST
FileName: String = '187481.dat';
{Имя файла, из которого будут считываться числа}
VAR
f: file of Real;
i: Word;
w, w_min, w_max: Real;
BEGIN
Assign(f, FileName);
{$I-} Reset(f); {$I+}
if IOResult <> 0 then begin
Writeln('Файл ', FileName, 'не найден');
Writeln('Сначала запустите программу m187481.exe для создания файла чисел'
Halt(1)
end;
i := 0;
w_min := 65535;
w_max := 0;
while (NOT EOF(f)) and (i <= 65535) do
begin
Read(f,w);
{ Write(w,' '); }
inc(i);
if w > w_max then w_max := w;
if NOT odd(i) then
if w < w_min then w_min := w;
end;
WriteLn;
WriteLn('w_min= ', w_min,', w_max= ', w_max);
Close(f)
END.