Хэлп, файлы в паскале

[ZveRtheGameS]

Всем привет, собственно задание:

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

Буду благодарен за помощь, не могу понять данную тему...

[ZveRtheGameS]

вопрос актуален

[ZX Spectrum-128]

Найти макс.

Var
  F:file of real;

...
Assign(f,'имяфайла');
Reset(f);
Read(f,x);
Max:=x;
While not eof(f) do
Begin
  Read(f,x);
  If x>max then
    Max:=x;
End;
...
Close(f);

[Serge_Bliznykov]

я бы попробовал примерно такой код:

Var
  F:file of real;
  x,max : real;
  i, PosMaxInFile : integer; 
begin
  Assign(f,'имяфайла');
  Reset(f);
  if FileSize(f)<1 then 
   WriteLn('File is empty! Nothing to do!')
  else begin
    PosMaxInFile := 1; {позиция максимального числа в исходном файле}
    Read(f, max);  {прочитали первое значение в переменную max}
    for i:=2 to FileSize(f) do begin
       Read(f,x);
       if x > max then begin
          max := x;            {взяли значение, как максимальное}
          PosMaxInFile ;= i; { и позицию числа запомнили}
       end;
    end;
  
    WriteLn('Max value = ',max:1:5,' position at file: ', PosMaxInFile);
    if PosMaxInFile<3 then WriteLn('Not values at 2 step before max!')
    else begin
       Seek(f, PosMaxInFile-1-2); {установим позицию в файле на два числа ранее максимального}
       Read(f,x);
       WriteLn('At 2 step in file before max value = ', x:1:5);
    end;
    if PosMaxInFile>(FileSize(f)-2) then WriteLn('Not values at 2 step after max!')
    else begin
       Seek(f, PosMaxInFile-1+2); {установим позицию в файле на два числа позже максимального}
       Read(f,x);
       WriteLn('At 2 step in file after max value = ', x:1:5);
    end;
  end;
  Close(f);
  WriteLn('DONE!! Press Enter to close program!');
  Readln;
end.

p.s. писал на форуме, естественно, не проверял, в коде могут быть опечатки и ошибки. Главное, идею уловить!