Типизированные файлы Опции

[mfractus]

Доброго времени суток! Прошу помощи в решении задачи. Заранее спасибо!

Текст задачи.

Сформировать файл G. Определить сумму и произведение наибольшего и наименьшего из значений компонент. Заменить значением суммы первую и последнюю компоненты, а на значение произведения – увеличить каждую третью компоненту файла. Файл вывести до и после преобразования.

[mfractus]

Вот что еще написал.

     read(F,Min);
     write(Min:5);
     Max:=Min;
     Imin:=0;
     Imax:=0;
     for i:=1 to filesize(F)-1 do
         begin
              read(F,buf);
              write(buf:5);
              if buf>Max then
                 begin
                      Max:=buf;
                      Imax:=i;
                 end;
              if buf<Min then
                 begin
                      Min:=buf;
                      Imin:=i;
                 end;
         end;
     writeLn('Наибольшее из значений констант',Max);
     writeLn('Наименьшее из значений констант',Min);
     close(F);
end.

Ошибка: Попытка чтения за концом файла. Вот на этой стороке read(F,buf);

[Lapp]

М

Просьба использовать теги! Правила Форума, п.5, и правила раздела Задачи, п.2

Ошибка: Попытка чтения за концом файла. Вот на этой стороке read(F,buf);

Я правильно понял, что эти два куска нужно соединить? Если да, то..
Ты сначала читаешь файл до конца вот тут:

while not EOF(F) do read(F,Min);

- а потом пытаешься читать дальше. Конечно, будет ошибка.

Я бы искал max и min как-то так: (добавлено: тут ошибка, читайте дальше сообщение volvo)

  reset(f);
  read(f,min);
  max:= min;
  while not eof(f) do begin
    read(f,a);
    if a<min then min:=a else if a>max then max:=a
  end;

А дальше собствено замена, примерно вот так:

  s:= max+min;
  p:= max*min;
  reset(f);
  write(f,s);
  seek(f,l-1);
  write(f,s);
  l:= filesize(f);
  n:=2;
  while n<l do begin
    seek(f,n);
    read(f,a);
    seek(f,n);
    write(f,a+p);
    Inc(n,3)
  end;
  close(f);

Еще замечу, что условие не вполне однозначное. Если последняя компонента в файле окажется еще и "каждой третьей", то результат зависит от порядка выполнения операций. Я в приведенном фрагменте сделал тот порядок, который в условии (не факт, что преп не придерется)). Вникни.